home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_5 / issue_10 / extras / impchars next >
ArcFS Archive  |  1995-06-24  |  54.2 KB

open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: ArcFS Archive (archive/arcFS).

ConfidenceProgramDetectionMatch TypeSupport
100% dexvert ArcFS Archive (archive/arcFS) magic Supported
100% file RISC OS archive (ArcFS format) default
99% file data default
100% TrID Acorn ArcFS Archive default
100% dearkID deark: arcfs default
100% gt2 Kopftext: 'Archive' default (weak)
100% detectItEasy Archive: ArcFS default



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 72 63 68 69 76 65 00 | 8c 01 00 00 ec 01 00 00 |Archive.|........|
|00000010| 28 00 00 00 64 00 00 00 | 00 00 00 00 00 00 00 00 |(...d...|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 82 21 49 6d 70 43 68 61 | 72 73 00 00 ff ff ff ff |.!ImpCha|rs......|
|00000070| 46 fd ff ff 92 7d fc 1e | 00 00 00 00 ff ff ff ff |F....}..|........|
|00000080| 68 01 00 80 82 21 48 65 | 6c 70 00 00 fd fd d3 fd |h....!He|lp......|
|00000090| 76 0d 00 00 43 ff ff ff | 55 d4 f5 ba 03 00 8b 1f |v...C...|U.......|
|000000a0| 76 0d 00 00 24 00 00 00 | 82 21 52 75 6e 00 04 00 |v...$...|.!Run...|
|000000b0| fd fd d3 fd e1 00 00 00 | 43 eb ff ff 5c c8 ac a5 |........|C...\...|
|000000c0| 03 00 06 70 e1 00 00 00 | be 0d 00 00 82 21 52 75 |...p....|.....!Ru|
|000000d0| 6e 49 6d 61 67 65 00 fd | 1c 38 00 00 43 fb ff ff |nImage..|.8..C...|
|000000e0| 14 8c a2 d2 03 00 5a 75 | 1c 38 00 00 c3 0e 00 00 |......Zu|.8......|
|000000f0| 82 21 52 75 6e 49 6d 61 | 67 65 54 00 05 40 00 00 |.!RunIma|geT..@..|
|00000100| 43 ff ff ff 98 80 a2 d2 | 03 00 93 1e 05 40 00 00 |C.......|.....@..|
|00000110| 03 47 00 00 82 21 53 70 | 72 69 74 65 73 00 d3 fd |.G...!Sp|rites...|
|00000120| e4 03 00 00 43 f9 ff ff | f4 d7 ac a5 03 00 d7 6e |....C...|.......n|
|00000130| e4 03 00 00 2c 87 00 00 | 82 46 6e 74 4d 65 6e 75 |....,...|.FntMenu|
|00000140| 44 6f 63 00 22 3c 00 00 | 42 ff ff ff 5c 2a cc 5e |Doc."<..|B...\*.^|
|00000150| 03 00 93 04 22 3c 00 00 | 34 8b 00 00 82 46 6f 6e |...."<..|4....Fon|
|00000160| 74 4d 65 6e 75 00 d3 fd | e4 0b 00 00 42 fa ff ff |tMenu...|....B...|
|00000170| 50 5e ca 5e 03 00 c4 b5 | e4 0b 00 00 7a c7 00 00 |P^.^....|....z...|
|00000180| 82 54 65 6d 70 6c 61 74 | 65 73 00 fd 5f 03 00 00 |.Templat|es.._...|
|00000190| 43 ec ff ff 38 ac ac d2 | 03 00 30 a5 5f 03 00 00 |C...8...|..0._...|
|000001a0| 82 d3 00 00 00 00 00 00 | c3 00 04 00 fd fd d3 fd |........|........|
|000001b0| fd fd d3 fd fd fd fd fd | fd fd fd fd fd fd fd fd |........|........|
|000001c0| fd fd fd fd a9 b7 dc fb | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 68 01 00 00 46 69 6c 65 |........|h...File|
|000001f0| 44 61 74 61 82 21 48 65 | 6c 70 00 00 fd fd d3 fd |Data.!He|lp......|
|00000200| 76 0d 00 00 43 ff ff ff | 55 d4 f5 ba 03 00 8b 1f |v...C...|U.......|
|00000210| 0a 0a 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |... | |
|00000220| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 48 65 6c | | Hel|
|00000230| 70 20 6f 6e 20 21 49 6d | 70 43 68 61 72 73 20 76 |p on !Im|pChars v|
|00000240| 31 2e 30 30 50 0a 20 20 | 20 20 20 20 20 20 20 20 |1.00P. | |
|00000250| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000260| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000270| 2d 2d 2d 2d 2d 2d 2d 2d | 0a 0a 54 68 69 73 20 61 |--------|..This a|
|00000280| 70 70 6c 69 63 61 74 69 | 6f 6e 20 64 69 73 70 6c |pplicati|on displ|
|00000290| 61 79 73 20 74 68 65 20 | 63 68 61 72 61 63 74 65 |ays the |characte|
|000002a0| 72 20 73 65 74 20 69 6e | 20 61 20 77 69 6e 64 6f |r set in| a windo|
|000002b0| 77 20 61 6e 64 20 61 6c | 6c 6f 77 73 0a 63 68 61 |w and al|lows.cha|
|000002c0| 72 61 63 74 65 72 73 20 | 74 6f 20 62 65 20 65 6e |racters |to be en|
|000002d0| 74 65 72 65 64 20 62 79 | 20 63 6c 69 63 6b 69 6e |tered by| clickin|
|000002e0| 67 20 6f 6e 20 74 68 65 | 6d 20 28 77 69 74 68 20 |g on the|m (with |
|000002f0| 53 45 4c 45 43 54 29 2e | 20 20 55 6e 6c 69 6b 65 |SELECT).| Unlike|
|00000300| 0a 6f 74 68 65 72 20 73 | 69 6d 69 6c 69 61 72 20 |.other s|imiliar |
|00000310| 75 74 69 6c 69 74 69 65 | 73 2c 20 69 74 20 68 61 |utilitie|s, it ha|
|00000320| 73 20 62 65 65 6e 20 77 | 72 69 74 74 65 6e 20 74 |s been w|ritten t|
|00000330| 6f 20 77 6f 72 6b 20 77 | 69 74 68 20 49 6d 70 72 |o work w|ith Impr|
|00000340| 65 73 73 69 6f 6e 0a 61 | 6e 64 20 70 61 73 73 65 |ession.a|nd passe|
|00000350| 73 20 66 6f 6e 74 20 69 | 6e 66 6f 72 6d 61 74 69 |s font i|nformati|
|00000360| 6f 6e 20 74 6f 20 49 6d | 70 72 65 73 73 69 6f 6e |on to Im|pression|
|00000370| 20 61 6c 6f 6e 67 20 77 | 69 74 68 20 74 68 65 20 | along w|ith the |
|00000380| 63 68 61 72 61 63 74 65 | 72 0a 69 74 73 65 6c 66 |characte|r.itself|
|00000390| 2e 20 20 54 68 69 73 20 | 6d 61 6b 65 73 20 69 74 |. This |makes it|
|000003a0| 20 76 65 72 79 20 65 61 | 73 79 20 74 6f 20 65 6e | very ea|sy to en|
|000003b0| 74 65 72 20 61 20 44 69 | 6e 67 62 61 74 73 20 6f |ter a Di|ngbats o|
|000003c0| 72 20 53 79 6d 62 6f 6c | 20 66 6f 6e 74 0a 63 68 |r Symbol| font.ch|
|000003d0| 61 72 61 63 74 65 72 20 | 62 79 20 63 6c 69 63 6b |aracter |by click|
|000003e0| 69 6e 67 20 6f 6e 20 61 | 20 63 68 61 72 61 63 74 |ing on a| charact|
|000003f0| 65 72 20 77 69 74 68 6f | 75 74 20 6d 65 73 73 69 |er witho|ut messi|
|00000400| 6e 67 20 61 72 6f 75 6e | 64 20 77 69 74 68 20 0a |ng aroun|d with .|
|00000410| 73 74 79 6c 65 73 20 6f | 72 20 65 66 66 65 63 74 |styles o|r effect|
|00000420| 73 20 74 6f 20 74 65 6c | 6c 20 49 6d 70 72 65 73 |s to tel|l Impres|
|00000430| 73 69 6f 6e 20 77 68 69 | 63 68 20 66 6f 6e 74 20 |sion whi|ch font |
|00000440| 74 6f 20 75 73 65 2e 0a | 0a 54 68 65 20 66 6f 75 |to use..|.The fou|
|00000450| 72 20 62 75 74 74 6f 6e | 73 20 6c 61 62 65 6c 6c |r button|s labell|
|00000460| 65 64 20 44 49 4e 47 42 | 41 54 53 2c 20 53 59 4d |ed DINGB|ATS, SYM|
|00000470| 42 4f 4c 2c 20 53 59 53 | 54 45 4d 20 61 6e 64 20 |BOL, SYS|TEM and |
|00000480| 54 52 49 4e 49 54 59 20 | 67 69 76 65 0a 71 75 69 |TRINITY |give.qui|
|00000490| 63 6b 20 61 63 63 65 73 | 73 20 74 6f 20 74 68 65 |ck acces|s to the|
|000004a0| 20 6d 6f 73 74 20 63 6f | 6d 6d 6f 6e 20 66 6f 6e | most co|mmon fon|
|000004b0| 74 73 20 77 68 69 63 68 | 20 61 72 65 20 75 73 65 |ts which| are use|
|000004c0| 64 20 66 6f 72 20 73 70 | 65 63 69 61 6c 20 73 79 |d for sp|ecial sy|
|000004d0| 6d 62 6f 6c 73 2c 0a 77 | 68 69 6c 65 20 6f 74 68 |mbols,.w|hile oth|
|000004e0| 65 72 20 66 6f 6e 74 73 | 20 63 61 6e 20 62 65 20 |er fonts| can be |
|000004f0| 73 65 6c 65 63 74 65 64 | 20 66 72 6f 6d 20 74 68 |selected| from th|
|00000500| 65 20 46 6f 6e 74 73 20 | 6d 65 6e 75 2e 0a 0a 49 |e Fonts |menu...I|
|00000510| 66 20 61 20 53 79 73 74 | 65 6d 20 66 6f 6e 74 20 |f a Syst|em font |
|00000520| 63 68 61 72 61 63 74 65 | 72 20 69 73 20 63 6c 69 |characte|r is cli|
|00000530| 63 6b 65 64 20 6f 6e 20 | 74 68 65 6e 20 74 68 65 |cked on |then the|
|00000540| 20 63 68 61 72 61 63 74 | 65 72 20 69 73 20 65 6e | charact|er is en|
|00000550| 74 65 72 65 64 0a 77 69 | 74 68 6f 75 74 20 61 6e |tered.wi|thout an|
|00000560| 79 20 66 6f 6e 74 20 69 | 6e 66 6f 72 6d 61 74 69 |y font i|nformati|
|00000570| 6f 6e 20 28 61 6e 64 20 | 74 68 69 73 20 69 73 20 |on (and |this is |
|00000580| 73 75 69 74 61 62 6c 65 | 20 66 6f 72 20 75 73 65 |suitable| for use|
|00000590| 20 77 69 74 68 20 61 6e | 79 0a 70 72 6f 67 72 61 | with an|y.progra|
|000005a0| 6d 29 2e 20 20 48 6f 77 | 65 76 65 72 2c 20 69 66 |m). How|ever, if|
|000005b0| 20 61 6e 20 6f 75 74 6c | 69 6e 65 20 66 6f 6e 74 | an outl|ine font|
|000005c0| 20 69 73 20 75 73 65 64 | 20 74 68 65 6e 20 61 6e | is used| then an|
|000005d0| 20 49 6d 70 72 65 73 73 | 69 6f 6e 20 44 44 46 0a | Impress|ion DDF.|
|000005e0| 73 74 72 69 6e 67 20 77 | 69 6c 6c 20 62 65 20 75 |string w|ill be u|
|000005f0| 73 65 64 20 74 6f 20 64 | 65 66 69 6e 65 20 61 20 |sed to d|efine a |
|00000600| 66 6f 6e 74 20 65 66 66 | 65 63 74 20 61 72 6f 75 |font eff|ect arou|
|00000610| 6e 64 20 74 68 65 20 73 | 69 6e 67 6c 65 20 63 68 |nd the s|ingle ch|
|00000620| 61 72 61 63 74 65 72 2e | 0a 43 68 61 72 61 63 74 |aracter.|.Charact|
|00000630| 65 72 73 20 73 75 63 68 | 20 61 73 20 b1 2c 20 b5 |ers such| as ., .|
|00000640| 20 61 6e 64 20 bd 20 73 | 68 6f 75 6c 64 20 74 68 | and . s|hould th|
|00000650| 65 72 65 66 6f 72 65 20 | 62 65 20 65 6e 74 65 72 |erefore |be enter|
|00000660| 65 64 20 75 73 69 6e 67 | 20 74 68 65 0a 73 79 73 |ed using| the.sys|
|00000670| 74 65 6d 20 66 6f 6e 74 | 2c 20 74 6f 20 61 76 6f |tem font|, to avo|
|00000680| 69 64 20 75 73 69 6e 67 | 20 61 6e 20 65 66 66 65 |id using| an effe|
|00000690| 63 74 20 75 6e 6e 65 63 | 65 73 73 61 72 69 6c 79 |ct unnec|essarily|
|000006a0| 2e 20 20 54 68 65 20 49 | 6d 70 43 68 61 72 73 0a |. The I|mpChars.|
|000006b0| 70 72 67 72 61 6d 20 69 | 73 20 72 65 61 6c 6c 79 |prgram i|s really|
|000006c0| 20 75 73 65 66 75 6c 20 | 77 68 65 6e 20 75 73 69 | useful |when usi|
|000006d0| 6e 67 20 44 69 6e 67 62 | 61 74 2c 20 47 72 65 65 |ng Dingb|at, Gree|
|000006e0| 6b 20 6f 72 20 53 79 6d | 62 6f 6c 20 66 6f 6e 74 |k or Sym|bol font|
|000006f0| 0a 63 68 61 72 61 63 74 | 65 72 73 20 77 68 65 6e |.charact|ers when|
|00000700| 20 74 68 65 20 66 6f 6e | 74 20 65 66 66 65 63 74 | the fon|t effect|
|00000710| 20 69 73 20 65 73 73 65 | 6e 74 69 61 6c 20 74 6f | is esse|ntial to|
|00000720| 20 67 65 74 20 74 68 65 | 20 63 6f 72 72 65 63 74 | get the| correct|
|00000730| 20 73 79 6d 62 6f 6c 2e | 0a 0a 57 69 74 68 20 52 | symbol.|..With R|
|00000740| 49 53 43 20 4f 53 20 33 | 20 74 68 65 20 53 79 73 |ISC OS 3| the Sys|
|00000750| 74 65 6d 20 66 6f 6e 74 | 20 69 73 20 61 75 74 6f |tem font| is auto|
|00000760| 6d 61 74 69 63 61 6c 6c | 79 20 64 65 66 69 6e 65 |maticall|y define|
|00000770| 64 20 74 6f 20 62 65 20 | 74 68 65 20 73 61 6d 65 |d to be |the same|
|00000780| 0a 61 73 20 74 68 65 20 | 4c 61 74 69 6e 20 31 20 |.as the |Latin 1 |
|00000790| 63 68 61 72 61 63 74 65 | 72 20 73 65 74 20 75 73 |characte|r set us|
|000007a0| 65 64 20 62 79 20 74 68 | 65 20 54 72 69 6e 69 74 |ed by th|e Trinit|
|000007b0| 79 20 61 6e 64 20 48 6f | 6d 65 72 74 6f 6e 20 66 |y and Ho|merton f|
|000007c0| 6f 6e 74 0a 66 61 6d 69 | 6c 69 65 73 2c 20 62 75 |ont.fami|lies, bu|
|000007d0| 74 20 77 69 74 68 20 52 | 49 53 43 20 4f 53 20 32 |t with R|ISC OS 2|
|000007e0| 2c 20 61 20 66 65 77 20 | 63 68 61 72 61 63 74 65 |, a few |characte|
|000007f0| 72 73 20 28 69 6e 63 6c | 75 64 69 6e 67 20 73 6d |rs (incl|uding sm|
|00000800| 61 72 74 20 71 75 6f 74 | 65 73 29 0a 61 72 65 20 |art quot|es).are |
|00000810| 6e 6f 74 20 74 68 65 20 | 73 61 6d 65 2e 20 20 52 |not the |same. R|
|00000820| 49 53 43 20 4f 53 20 32 | 20 75 73 65 72 73 20 61 |ISC OS 2| users a|
|00000830| 72 65 20 62 65 73 74 20 | 75 73 69 6e 67 20 74 68 |re best |using th|
|00000840| 65 20 61 6c 74 65 72 6e | 61 74 69 76 65 20 0a 73 |e altern|ative .s|
|00000850| 79 73 74 65 6d 20 66 6f | 6e 74 20 61 76 61 69 6c |ystem fo|nt avail|
|00000860| 61 62 6c 65 20 6f 6e 20 | 74 68 65 20 41 72 63 68 |able on |the Arch|
|00000870| 69 76 65 20 6d 61 67 61 | 7a 69 6e 65 20 64 69 73 |ive maga|zine dis|
|00000880| 63 20 66 6f 72 20 69 73 | 73 75 65 20 35 2e 36 2e |c for is|sue 5.6.|
|00000890| 20 20 54 68 65 0a 54 72 | 69 6e 69 74 79 20 6f 72 | The.Tr|inity or|
|000008a0| 20 48 6f 6d 65 72 74 6f | 6e 20 66 6f 6e 74 73 20 | Homerto|n fonts |
|000008b0| 63 61 6e 20 62 65 20 73 | 65 6c 65 63 74 65 64 20 |can be s|elected |
|000008c0| 74 6f 20 61 63 63 65 73 | 73 20 74 68 65 73 65 20 |to acces|s these |
|000008d0| 63 68 61 72 61 63 74 65 | 72 73 0a 77 69 74 68 20 |characte|rs.with |
|000008e0| 52 49 53 43 20 4f 53 20 | 32 20 62 75 74 20 74 68 |RISC OS |2 but th|
|000008f0| 65 6e 20 61 6e 20 65 66 | 66 65 63 74 20 77 69 6c |en an ef|fect wil|
|00000900| 6c 20 62 65 20 65 6e 74 | 65 72 65 64 20 69 6e 74 |l be ent|ered int|
|00000910| 6f 20 49 6d 70 72 65 73 | 73 69 6f 6e 20 74 6f 0a |o Impres|sion to.|
|00000920| 63 68 6f 6f 73 65 20 74 | 68 61 74 20 70 61 72 74 |choose t|hat part|
|00000930| 69 63 75 6c 61 72 20 66 | 6f 6e 74 2e 0a 0a 41 6e |icular f|ont...An|
|00000940| 20 65 78 74 72 61 20 66 | 61 63 69 6c 69 74 79 20 | extra f|acility |
|00000950| 69 73 20 70 72 6f 76 69 | 64 65 64 20 66 6f 72 20 |is provi|ded for |
|00000960| 65 6e 74 65 72 69 6e 67 | 20 63 68 61 72 61 63 74 |entering| charact|
|00000970| 65 72 73 20 69 6e 74 6f | 20 61 20 6d 65 6e 75 20 |ers into| a menu |
|00000980| 69 74 65 6d 2e 0a 42 65 | 63 61 75 73 65 20 63 6c |item..Be|cause cl|
|00000990| 69 63 6b 69 6e 67 20 69 | 6e 20 61 6e 6f 74 68 65 |icking i|n anothe|
|000009a0| 72 20 77 69 6e 64 6f 77 | 20 77 6f 75 6c 64 20 63 |r window| would c|
|000009b0| 6c 6f 73 65 20 61 6e 79 | 20 65 78 69 73 74 69 6e |lose any| existin|
|000009c0| 67 20 6d 65 6e 75 20 74 | 72 65 65 2c 0a 21 43 68 |g menu t|ree,.!Ch|
|000009d0| 61 72 73 20 61 6c 6c 6f | 77 73 20 79 6f 75 20 74 |ars allo|ws you t|
|000009e0| 6f 20 70 72 65 73 73 20 | 74 68 65 20 41 4c 54 20 |o press |the ALT |
|000009f0| 6b 65 79 20 77 68 69 6c | 65 20 74 68 65 20 70 6f |key whil|e the po|
|00000a00| 69 6e 74 65 72 20 69 73 | 20 6f 76 65 72 20 61 0a |inter is| over a.|
|00000a10| 63 68 61 72 61 63 74 65 | 72 20 69 6e 20 69 74 73 |characte|r in its|
|00000a20| 20 77 69 6e 64 6f 77 2c | 20 77 68 69 63 68 20 68 | window,| which h|
|00000a30| 61 73 20 74 68 65 20 73 | 61 6d 65 20 65 66 66 65 |as the s|ame effe|
|00000a40| 63 74 20 61 73 20 63 6c | 69 63 6b 69 6e 67 20 53 |ct as cl|icking S|
|00000a50| 45 4c 45 43 54 20 6f 6e | 20 74 68 65 0a 63 68 61 |ELECT on| the.cha|
|00000a60| 72 61 63 74 65 72 2c 20 | 62 75 74 20 64 6f 65 73 |racter, |but does|
|00000a70| 20 6e 6f 74 20 63 6c 6f | 73 65 20 61 6e 79 20 6d | not clo|se any m|
|00000a80| 65 6e 75 73 2e 0a 0a 4e | 4f 54 45 20 74 68 69 73 |enus...N|OTE this|
|00000a90| 20 68 61 73 20 62 65 65 | 6e 20 63 68 61 6e 67 65 | has bee|n change|
|00000aa0| 64 20 74 6f 20 41 4c 54 | 2c 20 61 73 20 69 74 20 |d to ALT|, as it |
|00000ab0| 69 74 20 69 73 20 73 6f | 6f 6f 6f 6f 6f 20 61 67 |it is so|ooooo ag|
|00000ac0| 67 72 61 76 61 74 69 6e | 67 20 77 68 65 6e 0a 79 |gravatin|g when.y|
|00000ad0| 6f 75 20 61 72 65 20 74 | 79 70 69 6e 67 20 61 6e |ou are t|yping an|
|00000ae0| 64 20 75 73 69 6e 67 20 | 53 48 49 46 54 20 6f 72 |d using |SHIFT or|
|00000af0| 20 43 54 52 4c 20 61 6e | 64 20 61 6e 20 65 78 74 | CTRL an|d an ext|
|00000b00| 72 61 20 63 68 61 72 61 | 63 74 65 72 20 69 73 20 |ra chara|cter is |
|00000b10| 69 6e 73 65 72 74 65 64 | 0a 62 65 63 61 75 73 65 |inserted|.because|
|00000b20| 20 79 6f 75 20 66 6f 72 | 67 6f 74 20 74 6f 20 6d | you for|got to m|
|00000b30| 6f 76 65 20 74 68 65 20 | 70 6f 69 6e 74 65 72 20 |ove the |pointer |
|00000b40| 6f 66 66 20 74 68 65 20 | 43 68 61 72 73 20 77 69 |off the |Chars wi|
|00000b50| 6e 64 6f 77 21 0a 0a 54 | 68 69 73 20 76 65 72 73 |ndow!..T|his vers|
|00000b60| 69 6f 6e 20 6f 66 20 21 | 43 68 61 72 73 20 28 61 |ion of !|Chars (a|
|00000b70| 73 20 69 74 20 77 61 73 | 20 6f 72 69 67 69 6e 61 |s it was| origina|
|00000b80| 6c 79 20 63 61 6c 6c 65 | 64 29 20 69 73 20 61 20 |ly calle|d) is a |
|00000b90| 64 65 6d 6f 6e 73 74 72 | 61 74 69 6f 6e 20 6f 66 |demonstr|ation of|
|00000ba0| 0a 74 68 65 20 75 73 65 | 20 6f 66 20 46 6f 6e 74 |.the use| of Font|
|00000bb0| 4d 65 6e 75 2e 20 49 74 | 20 69 73 20 61 64 61 70 |Menu. It| is adap|
|00000bc0| 74 65 64 20 62 79 20 4a | 2e 52 d6 6c 69 6e 67 2c |ted by J|.R.ling,|
|00000bd0| 20 74 68 65 20 61 75 74 | 68 6f 72 20 6f 66 20 46 | the aut|hor of F|
|00000be0| 6f 6e 74 4d 65 6e 75 2e | 20 53 65 65 0a 74 68 65 |ontMenu.| See.the|
|00000bf0| 20 64 6f 63 6f 6d 65 6e | 74 61 74 69 6f 6e 20 6f | docomen|tation o|
|00000c00| 66 20 46 6f 6e 74 4d 65 | 6e 75 20 28 46 6e 74 4d |f FontMe|nu (FntM|
|00000c10| 65 6e 75 44 6f 63 29 20 | 66 6f 72 20 61 20 64 65 |enuDoc) |for a de|
|00000c20| 74 61 69 6c 65 64 20 64 | 69 73 63 72 69 70 74 69 |tailed d|iscripti|
|00000c30| 6f 6e 20 6f 66 20 68 6f | 77 0a 74 6f 20 70 72 6f |on of ho|w.to pro|
|00000c40| 67 72 61 6d 20 75 73 69 | 6e 67 20 74 68 65 20 46 |gram usi|ng the F|
|00000c50| 6f 6e 74 4d 65 6e 75 20 | 6d 65 6e 75 2e 20 53 65 |ontMenu |menu. Se|
|00000c60| 65 20 61 6c 73 6f 20 74 | 68 65 20 28 42 41 53 49 |e also t|he (BASI|
|00000c70| 43 29 20 21 52 75 6e 49 | 6d 61 67 65 20 66 69 6c |C) !RunI|mage fil|
|00000c80| 65 20 66 6f 72 0a 69 74 | 73 20 63 6f 6d 6d 65 6e |e for.it|s commen|
|00000c90| 74 73 2e 20 28 21 52 75 | 6e 49 6d 61 67 65 43 20 |ts. (!Ru|nImageC |
|00000ca0| 63 6f 6e 74 61 69 6e 73 | 20 74 68 65 20 27 48 61 |contains| the 'Ha|
|00000cb0| 72 64 20 77 61 79 27 2c | 20 61 73 20 64 69 73 63 |rd way',| as disc|
|00000cc0| 72 69 62 65 64 20 69 6e | 20 46 6e 74 4d 65 6e 75 |ribed in| FntMenu|
|00000cd0| 44 6f 63 29 20 20 0a 28 | 4a 2e 52 d6 6c 69 6e 67 |Doc) .(|J.R.ling|
|00000ce0| 29 0a 0a 54 68 69 73 20 | 76 65 72 73 69 6f 6e 20 |)..This |version |
|00000cf0| 6f 66 20 21 43 68 61 72 | 73 20 6e 6f 77 20 68 61 |of !Char|s now ha|
|00000d00| 73 20 61 6e 6f 74 68 65 | 72 20 75 73 65 66 75 6c |s anothe|r useful|
|00000d10| 20 66 65 61 74 75 72 65 | 2d 20 59 6f 75 20 63 61 | feature|- You ca|
|00000d20| 6e 20 72 65 73 69 7a 65 | 0a 74 68 65 20 63 68 61 |n resize|.the cha|
|00000d30| 72 61 63 74 65 72 20 64 | 69 73 70 6c 61 79 20 74 |racter d|isplay t|
|00000d40| 6f 20 6d 61 6b 65 20 74 | 68 65 20 63 68 61 72 61 |o make t|he chara|
|00000d50| 63 74 65 72 73 20 62 69 | 67 67 65 72 2e 20 41 74 |cters bi|gger. At|
|00000d60| 20 6c 61 73 74 2c 20 79 | 6f 75 20 77 69 6c 6c 20 | last, y|ou will |
|00000d70| 62 65 0a 61 62 6c 65 20 | 74 6f 20 53 45 45 20 61 |be.able |to SEE a|
|00000d80| 6c 6c 20 74 68 65 20 a8 | a9 aa ab ac ad ae af b0 |ll the .|........|
|00000d90| b1 b9 b2 b3 b4 b7 b8 bc | bd be 20 63 68 61 72 61 |........|.. chara|
|00000da0| 63 74 65 72 73 21 21 0a | 0a 54 6f 20 64 6f 20 74 |cters!!.|.To do t|
|00000db0| 68 69 73 2c 20 72 65 73 | 69 7a 65 20 74 68 65 20 |his, res|ize the |
|00000dc0| 77 69 6e 64 6f 77 20 69 | 6e 20 74 68 65 20 6e 6f |window i|n the no|
|00000dd0| 72 6d 61 6c 20 77 61 79 | 2c 20 74 68 65 6e 20 62 |rmal way|, then b|
|00000de0| 72 69 6e 67 20 75 70 20 | 74 68 65 20 6d 65 6e 75 |ring up |the menu|
|00000df0| 0a 61 6e 64 20 63 68 6f | 6f 73 65 20 27 52 65 73 |.and cho|ose 'Res|
|00000e00| 69 7a 65 27 2e 20 54 68 | 69 73 20 77 69 6c 6c 20 |ize'. Th|is will |
|00000e10| 73 63 61 6c 65 20 74 68 | 65 20 63 68 61 72 61 63 |scale th|e charac|
|00000e20| 74 65 72 73 20 74 6f 20 | 66 69 74 20 69 6e 74 6f |ters to |fit into|
|00000e30| 20 74 68 65 20 6e 65 77 | 0a 77 69 6e 64 6f 77 20 | the new|.window |
|00000e40| 73 69 7a 65 2e 20 59 6f | 75 20 63 61 6e 20 6e 6f |size. Yo|u can no|
|00000e50| 77 20 61 6c 73 6f 20 6d | 61 6b 65 20 74 68 65 20 |w also m|ake the |
|00000e60| 77 69 6e 64 6f 77 20 73 | 6d 61 6c 6c 65 72 20 61 |window s|maller a|
|00000e70| 67 61 69 6e 2c 20 61 6e | 64 20 62 79 0a 73 63 72 |gain, an|d by.scr|
|00000e80| 6f 6c 6c 69 6e 67 2c 20 | 73 68 6f 77 20 6f 6e 6c |olling, |show onl|
|00000e90| 79 20 74 68 6f 73 65 20 | 6c 69 6e 65 73 20 6f 66 |y those |lines of|
|00000ea0| 20 63 68 61 72 61 63 74 | 65 72 73 20 74 68 61 74 | charact|ers that|
|00000eb0| 20 79 6f 75 20 6e 65 65 | 64 2c 20 77 68 69 63 68 | you nee|d, which|
|00000ec0| 20 6d 61 6b 65 73 0a 74 | 68 69 73 20 75 74 69 6c | makes.t|his util|
|00000ed0| 69 74 79 20 66 61 72 20 | 6d 6f 72 65 20 65 61 73 |ity far |more eas|
|00000ee0| 79 20 74 6f 20 75 73 65 | 2c 20 61 6e 64 20 79 6f |y to use|, and yo|
|00000ef0| 75 20 63 61 6e 20 6d 6f | 72 65 20 65 61 73 69 6c |u can mo|re easil|
|00000f00| 79 20 69 64 65 6e 74 69 | 66 79 20 74 68 6f 73 65 |y identi|fy those|
|00000f10| 0a 73 71 75 69 74 74 79 | 20 63 68 61 72 61 63 74 |.squitty| charact|
|00000f20| 65 72 73 21 20 20 28 4a | 2e 57 69 6c 6c 69 61 6d |ers! (J|.William|
|00000f30| 73 29 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |s) | |
|00000f40| 20 20 20 20 0a 0a 49 6d | 70 72 65 73 73 69 6f 6e | ..Im|pression|
|00000f50| 20 63 6f 6d 70 61 74 69 | 62 69 6c 69 74 79 20 77 | compati|bility w|
|00000f60| 61 73 20 61 64 64 65 64 | 20 62 79 20 50 61 75 6c |as added| by Paul|
|00000f70| 20 53 6b 69 72 72 6f 77 | 2c 20 4d 61 72 63 68 20 | Skirrow|, March |
|00000f80| 31 39 39 32 2e 0a 46 69 | 6c 65 44 61 74 61 82 21 |1992..Fi|leData.!|
|00000f90| 52 75 6e 00 04 00 fd fd | d3 fd e1 00 00 00 43 eb |Run.....|......C.|
|00000fa0| ff ff 5c c8 ac a5 03 00 | 06 70 7c 20 76 65 72 73 |..\.....|.p| vers|
|00000fb0| 69 6f 6e 20 30 2e 32 30 | 20 28 32 33 74 68 20 41 |ion 0.20| (23th A|
|00000fc0| 70 72 69 6c 20 31 39 39 | 30 29 0a 69 63 6f 6e 73 |pril 199|0).icons|
|00000fd0| 70 72 69 74 65 73 20 3c | 4f 62 65 79 24 44 69 72 |prites <|Obey$Dir|
|00000fe0| 3e 2e 21 53 70 72 69 74 | 65 73 0a 52 4d 45 6e 73 |>.!Sprit|es.RMEns|
|00000ff0| 75 72 65 20 46 6f 6e 74 | 4d 65 6e 75 20 31 2e 30 |ure Font|Menu 1.0|
|00001000| 36 20 52 4d 4c 6f 61 64 | 20 3c 4f 62 65 79 24 44 |6 RMLoad| <Obey$D|
|00001010| 69 72 3e 2e 46 6f 6e 74 | 4d 65 6e 75 0a 52 4d 45 |ir>.Font|Menu.RME|
|00001020| 6e 73 75 72 65 20 46 6f | 6e 74 4d 65 6e 75 20 31 |nsure Fo|ntMenu 1|
|00001030| 2e 30 36 20 45 72 72 6f | 72 20 30 20 43 61 6e 27 |.06 Erro|r 0 Can'|
|00001040| 74 20 66 69 6e 64 20 46 | 6f 6e 74 4d 65 6e 75 20 |t find F|ontMenu |
|00001050| 6d 6f 64 75 6c 65 0a 57 | 69 6d 70 53 6c 6f 74 20 |module.W|impSlot |
|00001060| 2d 6d 69 6e 20 32 34 6b | 20 2d 6d 61 78 20 32 34 |-min 24k| -max 24|
|00001070| 6b 0a 52 75 6e 20 3c 4f | 62 65 79 24 44 69 72 3e |k.Run <O|bey$Dir>|
|00001080| 2e 21 52 75 6e 49 6d 61 | 67 65 0a 46 69 6c 65 44 |.!RunIma|ge.FileD|
|00001090| 61 74 61 82 21 52 75 6e | 49 6d 61 67 65 00 fd 1c |ata.!Run|Image...|
|000010a0| 38 00 00 43 fb ff ff 14 | 8c a2 d2 03 00 5a 75 0d |8..C....|.....Zu.|
|000010b0| 00 0a 24 f4 20 3e 20 21 | 49 6d 70 43 68 61 72 73 |..$. > !|ImpChars|
|000010c0| 2e 21 52 75 6e 49 6d 61 | 67 65 20 56 31 2e 30 30 |.!RunIma|ge V1.00|
|000010d0| 71 20 3c 0d 00 14 2d f4 | 20 44 65 72 69 76 65 64 |q <...-.| Derived|
|000010e0| 20 66 72 6f 6d 20 56 65 | 72 73 69 6f 6e 20 30 2e | from Ve|rsion 0.|
|000010f0| 32 30 20 28 32 33 20 41 | 70 72 69 6c 20 38 39 29 |20 (23 A|pril 89)|
|00001100| 0d 00 1e 05 f4 0d 00 28 | 26 f4 20 43 6f 70 79 72 |.......(|&. Copyr|
|00001110| 69 67 68 74 20 a9 20 41 | 63 6f 72 6e 20 43 6f 6d |ight . A|corn Com|
|00001120| 70 75 74 65 72 73 20 31 | 39 38 39 0d 00 32 3b f4 |puters 1|989..2;.|
|00001130| 20 43 68 61 6e 67 65 64 | 20 6d 61 64 65 20 62 79 | Changed| made by|
|00001140| 20 4a 2e 52 d6 6c 69 6e | 67 20 74 6f 20 61 6c 6c | J.R.lin|g to all|
|00001150| 6f 77 20 74 68 65 20 75 | 73 65 20 6f 66 20 46 6f |ow the u|se of Fo|
|00001160| 6e 74 4d 65 6e 75 0d 00 | 3c 05 f4 0d 00 46 46 f4 |ntMenu..|<....FF.|
|00001170| 20 43 68 61 6e 67 65 64 | 20 62 79 20 4a 61 73 6f | Changed| by Jaso|
|00001180| 6e 20 57 69 6c 6c 69 61 | 6d 73 20 74 6f 20 61 6c |n Willia|ms to al|
|00001190| 6c 6f 77 20 72 65 73 69 | 7a 69 6e 67 20 6f 66 20 |low resi|zing of |
|000011a0| 77 69 6e 64 6f 77 2c 20 | 62 75 67 20 66 69 78 65 |window, |bug fixe|
|000011b0| 73 0d 00 50 40 f4 20 28 | 32 31 20 53 65 70 74 65 |s..P@. (|21 Septe|
|000011c0| 6d 62 65 72 20 27 39 30 | 29 2e 20 53 65 61 72 63 |mber '90|). Searc|
|000011d0| 68 20 66 6f 72 20 2a 2a | 2a 2a 20 66 6f 72 20 6d |h for **|** for m|
|000011e0| 79 20 61 64 64 69 74 69 | 6f 6e 73 2f 66 69 78 65 |y additi|ons/fixe|
|000011f0| 73 0d 00 5a 05 f4 0d 00 | 64 43 f4 20 43 68 61 6e |s..Z....|dC. Chan|
|00001200| 67 65 64 20 62 79 20 50 | 61 75 6c 20 53 6b 69 72 |ged by P|aul Skir|
|00001210| 72 6f 77 20 74 6f 20 77 | 6f 72 6b 20 77 69 74 68 |row to w|ork with|
|00001220| 20 49 6d 70 72 65 73 73 | 69 6f 6e 20 61 6e 64 20 | Impress|ion and |
|00001230| 70 61 73 73 20 66 6f 6e | 74 0d 00 6e 2d f4 20 69 |pass fon|t..n-. i|
|00001240| 6e 66 6f 72 6d 61 74 69 | 6f 6e 20 74 6f 67 65 68 |nformati|on togeh|
|00001250| 65 72 20 77 69 74 68 20 | 74 68 65 20 63 68 61 72 |er with |the char|
|00001260| 61 63 74 65 72 2e 0d 00 | 78 05 f4 0d 00 82 45 f4 |acter...|x.....E.|
|00001270| 20 43 68 61 6e 67 65 64 | 20 62 79 20 43 6c 69 76 | Changed| by Cliv|
|00001280| 65 20 57 69 6c 6c 69 61 | 6d 73 20 28 32 32 2e 34 |e Willia|ms (22.4|
|00001290| 2e 31 39 39 32 29 20 74 | 6f 20 77 6f 72 6b 20 66 |.1992) t|o work f|
|000012a0| 72 6f 6d 20 74 68 65 20 | 69 63 6f 6e 20 62 61 72 |rom the |icon bar|
|000012b0| 0d 00 8c 05 3a 0d 00 96 | 05 3a 0d 00 a0 3c f4 20 |....:...|.:...<. |
|000012c0| 20 20 20 20 20 20 20 20 | 20 54 68 69 73 20 70 72 | | This pr|
|000012d0| 6f 67 72 61 6d 20 64 65 | 6d 6f 6e 73 74 72 61 74 |ogram de|monstrat|
|000012e0| 65 73 20 74 68 65 20 75 | 73 65 20 6f 66 20 46 6f |es the u|se of Fo|
|000012f0| 6e 74 4d 65 6e 75 0d 00 | aa 05 f4 0d 00 b4 05 f4 |ntMenu..|........|
|00001300| 0d 00 be 40 f4 20 20 20 | 20 20 20 20 20 20 20 41 |...@. | A|
|00001310| 6c 6c 20 46 6f 6e 74 4d | 65 6e 75 20 73 70 65 63 |ll FontM|enu spec|
|00001320| 69 66 69 63 20 63 6f 64 | 65 20 69 73 20 6d 61 72 |ific cod|e is mar|
|00001330| 6b 65 64 20 77 69 74 68 | 20 52 45 4d 20 23 23 23 |ked with| REM ###|
|00001340| 0d 00 c8 41 f4 20 20 20 | 20 20 20 20 20 20 20 66 |...A. | f|
|00001350| 6f 6c 6c 6f 77 65 64 20 | 62 79 20 61 20 64 69 73 |ollowed |by a dis|
|00001360| 63 72 69 70 74 69 6f 6e | 20 6f 66 20 74 68 65 20 |cription| of the |
|00001370| 73 70 65 63 69 66 69 63 | 20 6d 65 61 6e 69 6e 67 |specific| meaning|
|00001380| 2e 0d 00 d2 38 f4 20 20 | 20 20 20 20 20 20 20 20 |....8. | |
|00001390| 4e 6f 74 65 20 74 68 65 | 20 75 73 65 20 6f 66 20 |Note the| use of |
|000013a0| 74 68 65 20 48 6f 75 72 | 67 6c 61 73 73 20 73 74 |the Hour|glass st|
|000013b0| 61 74 65 6d 65 6e 74 73 | 2e 0d 00 dc 05 3a 0d 00 |atements|.....:..|
|000013c0| e6 05 3a 0d 00 f0 05 3a | 0d 00 fa 05 3a 0d 01 04 |..:....:|....:...|
|000013d0| 52 de 20 54 41 53 4b 20 | 34 2c 20 62 6c 6f 63 6b |R. TASK |4, block|
|000013e0| 25 20 31 35 31 32 2c 20 | 43 24 28 38 29 2c 20 43 |% 1512, |C$(8), C|
|000013f0| 68 61 72 44 65 66 20 38 | 2c 20 69 6e 64 5f 64 61 |harDef 8|, ind_da|
|00001400| 74 61 25 20 35 31 32 2c | 20 6d 65 6e 75 25 20 32 |ta% 512,| menu% 2|
|00001410| 35 36 2c 64 64 66 64 61 | 74 61 25 20 32 35 36 0d |56,ddfda|ta% 256.|
|00001420| 01 0e 1f 4c 4d 25 3d 31 | 36 3a 52 4d 25 3d 31 36 |...LM%=1|6:RM%=16|
|00001430| 3a 42 4d 25 3d 31 36 3a | 54 4d 25 3d 31 36 0d 01 |:BM%=16:|TM%=16..|
|00001440| 18 04 0d 01 22 15 4d 58 | 53 50 25 3d 32 34 3a 4d |....".MX|SP%=24:M|
|00001450| 59 53 50 25 3d 34 34 0d | 01 2c 29 66 73 31 25 3d |YSP%=44.|.,)fs1%=|
|00001460| 4d 58 53 50 25 2a 28 31 | 31 2f 32 34 29 3a 66 73 |MXSP%*(1|1/24):fs|
|00001470| 32 25 3d 4d 59 53 50 25 | 2a 28 31 35 2f 34 34 29 |2%=MYSP%|*(15/44)|
|00001480| 0d 01 36 04 0d 01 40 0f | e3 20 58 25 3d 30 20 b8 |..6...@.|. X%=0 .|
|00001490| 20 33 31 0d 01 4a 33 20 | e7 20 58 25 3c 3d 31 35 | 31..J3 |. X%<=15|
|000014a0| 20 8c 20 43 24 28 30 29 | 2b 3d a4 43 48 28 58 25 | . C$(0)|+=.CH(X%|
|000014b0| 2c 30 29 20 8b 20 43 24 | 28 38 29 2b 3d a4 43 48 |,0) . C$|(8)+=.CH|
|000014c0| 28 58 25 2c 30 29 0d 01 | 54 24 20 e3 20 59 25 3d |(X%,0)..|T$ . Y%=|
|000014d0| 31 20 b8 20 37 3a 43 24 | 28 59 25 29 2b 3d a4 43 |1 . 7:C$|(Y%)+=.C|
|000014e0| 48 28 58 25 2c 59 25 29 | 3a ed 0d 01 5e 05 ed 0d |H(X%,Y%)|:...^...|
|000014f0| 01 68 29 52 24 3d bd 32 | 33 2b bd 33 32 2b c4 38 |.h)R$=.2|3+.32+.8|
|00001500| 2c bd 30 29 3a 43 24 28 | 33 29 2b 3d 52 24 3a 43 |,.0):C$(|3)+=R$:C|
|00001510| 24 28 38 29 2b 3d 52 24 | 0d 01 72 04 0d 01 7c 09 |$(8)+=R$|..r...|.|
|00001520| f4 20 23 23 23 0d 01 86 | 46 f4 20 54 68 65 20 66 |. ###...|F. The f|
|00001530| 6f 6c 6c 6f 77 69 6e 67 | 20 73 74 61 74 65 6d 65 |ollowing| stateme|
|00001540| 6e 74 73 20 77 69 6c 6c | 20 61 73 73 75 72 65 20 |nts will| assure |
|00001550| 74 68 61 74 20 61 20 76 | 61 6c 69 64 20 66 6f 6e |that a v|alid fon|
|00001560| 74 20 6d 65 6e 75 20 77 | 69 6c 6c 0d 01 90 47 f4 |t menu w|ill...G.|
|00001570| 20 62 65 20 61 76 61 69 | 6c 61 62 6c 65 2e 20 49 | be avai|lable. I|
|00001580| 66 20 74 68 69 73 20 6d | 65 6e 75 20 61 6c 72 65 |f this m|enu alre|
|00001590| 61 64 79 20 65 78 69 73 | 74 73 2c 20 69 74 20 77 |ady exis|ts, it w|
|000015a0| 69 6c 6c 20 6e 6f 74 20 | 62 65 20 63 72 65 61 74 |ill not |be creat|
|000015b0| 65 64 0d 01 9a 0c f4 20 | 61 67 61 69 6e 2e 0d 01 |ed..... |again...|
|000015c0| a4 04 0d 01 ae 15 c8 99 | 20 22 48 6f 75 72 67 6c |........| "Hourgl|
|000015d0| 61 73 73 5f 4f 6e 22 0d | 01 b8 18 c8 99 20 22 46 |ass_On".|..... "F|
|000015e0| 6f 6e 74 4d 65 6e 75 5f | 43 72 65 61 74 65 22 0d |ontMenu_|Create".|
|000015f0| 01 c2 16 c8 99 20 22 48 | 6f 75 72 67 6c 61 73 73 |..... "H|ourglass|
|00001600| 5f 4f 66 66 22 0d 01 cc | 04 0d 01 d6 26 66 6f 6e |_Off"...|....&fon|
|00001610| 74 24 3d 22 53 79 73 74 | 65 6d 20 46 6f 6e 74 22 |t$="Syst|em Font"|
|00001620| 3a 63 75 72 66 25 3d 2d | 31 3a f2 76 61 72 73 0d |:curf%=-|1:.vars.|
|00001630| 01 e0 49 48 6f 74 4b 65 | 79 25 3d 2d 33 20 20 3a |..IHotKe|y%=-3 :|
|00001640| f4 20 41 4c 54 20 6b 65 | 79 20 28 4e 6f 74 65 20 |. ALT ke|y (Note |
|00001650| 74 68 61 74 20 74 68 69 | 73 20 69 73 20 61 20 63 |that thi|s is a c|
|00001660| 68 61 6e 67 65 20 66 72 | 6f 6d 20 74 68 65 20 6f |hange fr|om the o|
|00001670| 72 69 67 69 6e 61 6c 29 | 0d 01 ea 4a 24 54 41 53 |riginal)|...J$TAS|
|00001680| 4b 3d 22 54 41 53 4b 22 | 3a c8 99 22 57 69 6d 70 |K="TASK"|:.."Wimp|
|00001690| 5f 49 6e 69 74 69 61 6c | 69 73 65 22 2c 32 30 30 |_Initial|ise",200|
|000016a0| 2c 21 54 41 53 4b 2c 22 | 43 68 61 72 61 63 74 65 |,!TASK,"|Characte|
|000016b0| 72 73 22 20 b8 20 2c 74 | 61 73 6b 68 61 6e 64 6c |rs" . ,t|askhandl|
|000016c0| 65 25 0d 01 f4 0e f2 74 | 65 6d 70 6c 61 74 65 73 |e%.....t|emplates|
|000016d0| 0d 01 f6 04 0d 01 f8 2f | de 20 71 31 25 20 32 35 |......./|. q1% 25|
|000016e0| 36 3a 73 70 72 69 74 65 | 24 3d 22 21 69 6d 70 63 |6:sprite|$="!impc|
|000016f0| 68 61 72 73 22 3a 69 63 | 25 3d a4 69 63 6f 6e 5f |hars":ic|%=.icon_|
|00001700| 62 61 72 0d 01 fe 04 0d | 02 08 4a 50 6f 6c 6c 46 |bar.....|..JPollF|
|00001710| 6c 61 67 73 3d ac 28 28 | 31 3c 3c 31 29 2b 28 31 |lags=.((|1<<1)+(1|
|00001720| 3c 3c 32 29 2b 28 31 3c | 3c 33 29 2b 28 31 3c 3c |<<2)+(1<|<3)+(1<<|
|00001730| 34 29 2b 28 31 3c 3c 35 | 29 2b 28 31 3c 3c 36 29 |4)+(1<<5|)+(1<<6)|
|00001740| 2b 28 31 3c 3c 31 37 29 | 2b 28 31 3c 3c 31 38 29 |+(1<<17)|+(1<<18)|
|00001750| 29 0d 02 12 14 62 61 63 | 6b 67 72 6f 75 6e 64 6b |)....bac|kgroundk|
|00001760| 65 79 25 3d 30 0d 02 1c | 04 0d 02 26 05 f5 0d 02 |ey%=0...|...&....|
|00001770| 30 27 20 c8 99 20 50 6f | 6c 6c 25 2c 50 6f 6c 6c |0' .. Po|ll%,Poll|
|00001780| 46 6c 61 67 73 2c 62 6c | 6f 63 6b 25 20 b8 20 72 |Flags,bl|ock% . r|
|00001790| 65 61 73 6f 6e 0d 02 3a | 10 20 c8 8e 20 72 65 61 |eason..:|. .. rea|
|000017a0| 73 6f 6e 20 ca 0d 02 44 | 3f 20 c9 20 30 3a 20 f2 |son ...D|? . 0: .|
|000017b0| 43 68 65 63 6b 48 6f 74 | 4b 65 79 3a e7 20 62 61 |CheckHot|Key:. ba|
|000017c0| 63 6b 67 72 6f 75 6e 64 | 6b 65 79 25 20 f2 74 69 |ckground|key% .ti|
|000017d0| 64 79 75 70 28 62 61 63 | 6b 67 72 6f 75 6e 64 6b |dyup(bac|kgroundk|
|000017e0| 65 79 25 29 0d 02 4e 17 | 20 c9 20 31 3a 20 f2 52 |ey%)..N.| . 1: .R|
|000017f0| 65 64 72 61 77 57 69 6e | 64 6f 77 0d 02 58 15 20 |edrawWin|dow..X. |
|00001800| c9 20 32 3a 20 f2 4f 70 | 65 6e 57 69 6e 64 6f 77 |. 2: .Op|enWindow|
|00001810| 0d 02 62 16 20 c9 20 33 | 3a 20 f2 43 6c 6f 73 65 |..b. . 3|: .Close|
|00001820| 57 69 6e 64 6f 77 0d 02 | 6c 19 20 c9 20 34 3a 20 |Window..|l. . 4: |
|00001830| f2 50 6f 69 6e 74 65 72 | 4c 65 61 76 69 6e 67 0d |.Pointer|Leaving.|
|00001840| 02 76 1a 20 c9 20 35 3a | 20 f2 50 6f 69 6e 74 65 |.v. . 5:| .Pointe|
|00001850| 72 45 6e 74 65 72 69 6e | 67 0d 02 80 4e 20 c9 20 |rEnterin|g...N . |
|00001860| 36 3a 20 f2 43 68 65 63 | 6b 4d 6f 75 73 65 28 21 |6: .Chec|kMouse(!|
|00001870| 62 6c 6f 63 6b 25 2c 62 | 6c 6f 63 6b 25 21 34 2c |block%,b|lock%!4,|
|00001880| 62 6c 6f 63 6b 25 21 38 | 2c 62 6c 6f 63 6b 25 21 |block%!8|,block%!|
|00001890| 31 32 2c 62 6c 6f 63 6b | 25 21 31 36 2c 62 6c 6f |12,block|%!16,blo|
|000018a0| 63 6b 25 21 32 30 29 0d | 02 8a 16 20 c9 20 39 3a |ck%!20).|... . 9:|
|000018b0| 20 f2 6d 65 6e 75 5f 73 | 65 6c 65 63 74 0d 02 94 | .menu_s|elect...|
|000018c0| 16 20 c9 20 31 37 2c 31 | 38 3a 20 f2 4d 65 73 73 |. . 17,1|8: .Mess|
|000018d0| 61 67 65 0d 02 9e 06 20 | cb 0d 02 a8 07 fd 20 a3 |age.... |...... .|
|000018e0| 0d 02 b2 05 e0 0d 02 bc | 05 3a 0d 02 c6 12 dd 20 |........|.:..... |
|000018f0| f2 43 68 65 63 6b 48 6f | 74 4b 65 79 0d 02 d0 15 |.CheckHo|tKey....|
|00001900| 49 73 44 6f 77 6e 25 3d | a6 20 48 6f 74 4b 65 79 |IsDown%=|. HotKey|
|00001910| 25 0d 02 da 1c e7 20 49 | 73 44 6f 77 6e 25 20 80 |%..... I|sDown% .|
|00001920| 20 ac 20 57 61 73 44 6f | 77 6e 25 20 8c 0d 02 e4 | . WasDo|wn% ....|
|00001930| 14 20 c8 99 20 47 65 74 | 50 2c 2c 62 6c 6f 63 6b |. .. Get|P,,block|
|00001940| 25 0d 02 ee 0c 20 f2 44 | 6f 43 68 61 72 0d 02 f8 |%.... .D|oChar...|
|00001950| 05 cd 0d 03 02 14 57 61 | 73 44 6f 77 6e 25 3d 49 |......Wa|sDown%=I|
|00001960| 73 44 6f 77 6e 25 0d 03 | 0c 05 e1 0d 03 16 05 3a |sDown%..|.......:|
|00001970| 0d 03 20 19 dd 20 f2 72 | 65 73 65 74 73 69 7a 65 |.. .. .r|esetsize|
|00001980| 20 3a ea 20 58 25 2c 59 | 25 0d 03 2a 41 f4 20 2a | :. X%,Y|%..*A. *|
|00001990| 2a 2a 2a 20 43 61 6c 6c | 65 64 20 77 68 65 6e 20 |*** Call|ed when |
|000019a0| 75 73 65 72 20 68 61 73 | 20 72 65 73 69 7a 65 64 |user has| resized|
|000019b0| 20 77 69 6e 64 6f 77 20 | 61 6e 64 20 74 68 65 6e | window |and then|
|000019c0| 20 63 6c 69 63 6b 73 20 | 6f 6e 0d 03 34 3d f4 20 | clicks |on..4=. |
|000019d0| 20 20 20 20 20 27 52 65 | 73 69 7a 65 27 20 6f 72 | 'Re|size' or|
|000019e0| 20 77 68 61 74 65 76 65 | 72 20 49 20 65 76 65 6e | whateve|r I even|
|000019f0| 74 75 61 6c 6c 79 20 63 | 61 6c 6c 65 64 20 69 74 |tually c|alled it|
|00001a00| 20 6f 70 74 69 6f 6e 0d | 03 3e 48 f4 20 2d 52 65 | option.|.>H. -Re|
|00001a10| 2d 63 61 6c 63 75 6c 61 | 74 65 73 20 43 68 61 72 |-calcula|tes Char|
|00001a20| 61 63 74 65 72 20 73 70 | 61 63 69 6e 67 20 61 6e |acter sp|acing an|
|00001a30| 64 20 73 69 7a 65 20 63 | 6f 6e 73 74 61 6e 74 73 |d size c|onstants|
|00001a40| 2c 20 66 6f 72 63 65 73 | 20 72 65 64 72 61 77 0d |, forces| redraw.|
|00001a50| 03 48 04 0d 03 52 18 21 | 62 6c 6f 63 6b 25 3d 57 |.H...R.!|block%=W|
|00001a60| 69 6e 64 6f 77 48 61 6e | 64 6c 65 0d 03 5c 23 c8 |indowHan|dle..\#.|
|00001a70| 99 20 22 57 69 6d 70 5f | 47 65 74 57 69 6e 64 6f |. "Wimp_|GetWindo|
|00001a80| 77 49 6e 66 6f 22 2c 2c | 62 6c 6f 63 6b 25 0d 03 |wInfo",,|block%..|
|00001a90| 66 42 58 25 3d 62 6c 6f | 63 6b 25 21 31 32 2d 62 |fBX%=blo|ck%!12-b|
|00001aa0| 6c 6f 63 6b 25 21 34 20 | 20 20 20 20 20 20 20 20 |lock%!4 | |
|00001ab0| 20 20 20 20 20 20 20 3a | f4 20 47 65 74 20 58 2c | :|. Get X,|
|00001ac0| 59 20 73 69 7a 65 20 6f | 66 20 77 69 6e 64 6f 77 |Y size o|f window|
|00001ad0| 0d 03 70 22 59 25 3d 28 | 62 6c 6f 63 6b 25 21 31 |..p"Y%=(|block%!1|
|00001ae0| 36 2d 62 6c 6f 63 6b 25 | 21 38 29 3c 3c 59 45 49 |6-block%|!8)<<YEI|
|00001af0| 47 25 0d 03 7a 04 0d 03 | 84 1b 62 6c 6f 63 6b 25 |G%..z...|..block%|
|00001b00| 21 32 30 3d 30 3a 62 6c | 6f 63 6b 25 21 32 34 3d |!20=0:bl|ock%!24=|
|00001b10| 30 0d 03 8e 3b c8 99 20 | 22 57 69 6d 70 5f 4f 70 |0...;.. |"Wimp_Op|
|00001b20| 65 6e 57 69 6e 64 6f 77 | 22 2c 2c 62 6c 6f 63 6b |enWindow|",,block|
|00001b30| 25 20 20 20 20 3a f4 20 | 52 65 73 65 74 20 73 63 |% :. |Reset sc|
|00001b40| 72 6f 6c 6c 20 6f 66 66 | 73 65 74 73 0d 03 98 04 |roll off|sets....|
|00001b50| 0d 03 a2 38 4d 58 53 50 | 25 3d 94 28 58 25 2d 4c |...8MXSP|%=.(X%-L|
|00001b60| 4d 25 2d 52 4d 25 29 3e | 3e 35 20 20 20 20 20 3a |M%-RM%)>|>5 :|
|00001b70| f4 20 47 65 74 20 6e 65 | 77 20 73 70 61 63 69 6e |. Get ne|w spacin|
|00001b80| 67 20 63 6f 6e 73 74 73 | 0d 03 ac 1a 4d 59 53 50 |g consts|....MYSP|
|00001b90| 25 3d 94 28 59 25 2d 54 | 4d 25 2d 42 4d 25 29 3e |%=.(Y%-T|M%-BM%)>|
|00001ba0| 3e 35 0d 03 b6 3d 66 73 | 31 25 3d 4d 58 53 50 25 |>5...=fs|1%=MXSP%|
|00001bb0| 2a 28 31 31 2f 32 34 29 | 20 20 20 20 20 20 20 20 |*(11/24)| |
|00001bc0| 20 20 20 3a f4 20 43 61 | 6c 63 20 6e 65 77 20 66 | :. Ca|lc new f|
|00001bd0| 6f 6e 74 20 73 69 7a 65 | 20 63 6f 6e 73 74 73 0d |ont size| consts.|
|00001be0| 03 c0 16 66 73 32 25 3d | 4d 59 53 50 25 2a 28 31 |...fs2%=|MYSP%*(1|
|00001bf0| 35 2f 34 34 29 0d 03 ca | 04 0d 03 d4 13 e7 20 66 |5/44)...|...... f|
|00001c00| 73 31 25 3c 31 20 66 73 | 31 25 3d 31 0d 03 de 13 |s1%<1 fs|1%=1....|
|00001c10| e7 20 66 73 32 25 3c 31 | 20 66 73 32 25 3d 31 0d |. fs2%<1| fs2%=1.|
|00001c20| 03 e8 04 0d 03 f2 26 e7 | 63 75 72 66 25 3e 2d 31 |......&.|curf%>-1|
|00001c30| 20 80 20 66 6f 6e 74 24 | 3c 3e 22 53 79 73 74 65 | . font$|<>"Syste|
|00001c40| 6d 20 46 6f 6e 74 22 20 | 8c 0d 03 fc 42 20 c8 99 |m Font" |....B ..|
|00001c50| 4c 6f 73 65 46 6f 6e 74 | 2c 63 75 72 66 25 20 20 |LoseFont|,curf% |
|00001c60| 20 20 20 20 20 20 20 20 | 20 3a f4 20 45 6e 73 75 | | :. Ensu|
|00001c70| 72 65 20 63 6f 72 72 65 | 63 74 20 66 6f 6e 74 20 |re corre|ct font |
|00001c80| 73 69 7a 65 20 6c 6f 61 | 64 65 64 0d 04 06 2e 20 |size loa|ded.... |
|00001c90| c8 99 46 69 6e 64 46 6f | 6e 74 2c 2c 66 6f 6e 74 |..FindFo|nt,,font|
|00001ca0| 24 2c 66 73 31 25 2a 31 | 36 2c 66 73 32 25 2a 31 |$,fs1%*1|6,fs2%*1|
|00001cb0| 36 20 b8 20 63 75 72 66 | 25 0d 04 10 05 cd 0d 04 |6 . curf|%.......|
|00001cc0| 1a 04 0d 04 24 43 c8 99 | 20 53 63 72 65 65 6e 2c |....$C..| Screen,|
|00001cd0| 57 69 6e 64 6f 77 48 61 | 6e 64 6c 65 2c 30 2c 2d |WindowHa|ndle,0,-|
|00001ce0| 32 30 34 38 2c 32 30 34 | 38 2c 30 20 3a f4 20 46 |2048,204|8,0 :. F|
|00001cf0| 6f 72 63 65 20 72 65 64 | 72 61 77 20 6f 66 20 77 |orce red|raw of w|
|00001d00| 69 6e 64 6f 77 0d 04 2e | 05 e1 0d 04 38 05 3a 0d |indow...|....8.:.|
|00001d10| 04 42 13 dd 20 f2 52 65 | 64 72 61 77 57 69 6e 64 |.B.. .Re|drawWind|
|00001d20| 6f 77 0d 04 4c 1e c8 99 | 20 52 65 64 72 61 77 57 |ow..L...| RedrawW|
|00001d30| 2c 2c 62 6c 6f 63 6b 25 | 20 b8 20 66 6c 61 67 25 |,,block%| . flag%|
|00001d40| 0d 04 56 0f e7 63 75 72 | 66 25 3e 2d 31 20 8c 0d |..V..cur|f%>-1 ..|
|00001d50| 04 60 26 20 c8 99 20 53 | 65 74 46 6f 6e 74 2c 63 |.`& .. S|etFont,c|
|00001d60| 75 72 66 25 3a c8 99 20 | 53 65 74 46 6f 6e 74 43 |urf%:.. |SetFontC|
|00001d70| 2c 2c 30 2c 37 0d 04 6a | 05 cd 0d 04 74 0c c8 95 |,,0,7..j|....t...|
|00001d80| 20 66 6c 61 67 25 0d 04 | 7e 43 20 53 74 61 72 74 | flag%..|~C Start|
|00001d90| 58 25 3d 62 6c 6f 63 6b | 25 21 34 2b 4c 4d 25 2d |X%=block|%!4+LM%-|
|00001da0| 62 6c 6f 63 6b 25 21 32 | 30 3a 53 74 61 72 74 59 |block%!2|0:StartY|
|00001db0| 25 3d 62 6c 6f 63 6b 25 | 21 31 36 2d 54 4d 25 2d |%=block%|!16-TM%-|
|00001dc0| 62 6c 6f 63 6b 25 21 32 | 34 0d 04 88 10 20 e7 63 |block%!2|4.... .c|
|00001dd0| 75 72 66 25 3e 2d 31 20 | 8c 0d 04 92 35 20 20 6f |urf%>-1 |....5 o|
|00001de0| 78 30 25 3d 28 62 6c 6f | 63 6b 25 21 32 38 2d 53 |x0%=(blo|ck%!28-S|
|00001df0| 74 61 72 74 58 25 29 81 | 4d 58 53 50 25 3a e7 6f |tartX%).|MXSP%:.o|
|00001e00| 78 30 25 3e 33 31 20 6f | 78 30 25 3d 33 31 0d 04 |x0%>31 o|x0%=31..|
|00001e10| 9c 15 20 20 e7 20 6f 78 | 30 25 3c 30 20 6f 78 30 |.. . ox|0%<0 ox0|
|00001e20| 25 3d 30 0d 04 a6 35 20 | 20 6f 78 31 25 3d 28 62 |%=0...5 | ox1%=(b|
|00001e30| 6c 6f 63 6b 25 21 33 36 | 2d 53 74 61 72 74 58 25 |lock%!36|-StartX%|
|00001e40| 29 81 4d 58 53 50 25 3a | e7 6f 78 31 25 3e 33 31 |).MXSP%:|.ox1%>31|
|00001e50| 20 6f 78 31 25 3d 33 31 | 0d 04 b0 15 20 20 e7 20 | ox1%=31|.... . |
|00001e60| 6f 78 31 25 3c 30 20 6f | 78 31 25 3d 30 0d 04 ba |ox1%<0 o|x1%=0...|
|00001e70| 28 20 20 e3 20 59 25 3d | 31 20 b8 20 37 3a 43 59 |( . Y%=|1 . 7:CY|
|00001e80| 25 3d 53 74 61 72 74 59 | 25 2d 32 34 2d 59 25 2a |%=StartY|%-24-Y%*|
|00001e90| 4d 59 53 50 25 0d 04 c4 | 35 20 20 20 e7 20 43 59 |MYSP%...|5 . CY|
|00001ea0| 25 3c 62 6c 6f 63 6b 25 | 21 34 30 2b 4d 59 53 50 |%<block%|!40+MYSP|
|00001eb0| 25 20 80 20 43 59 25 2b | 4d 59 53 50 25 3e 3d 62 |% . CY%+|MYSP%>=b|
|00001ec0| 6c 6f 63 6b 25 21 33 32 | 20 8c 0d 04 ce 47 20 20 |lock%!32| ....G |
|00001ed0| 20 20 e3 58 25 3d 6f 78 | 30 25 b8 6f 78 31 25 3a | .X%=ox|0%.ox1%:|
|00001ee0| c8 99 20 50 61 69 6e 74 | 25 2c 2c bd 28 59 25 2a |.. Paint|%,,.(Y%*|
|00001ef0| 33 32 2b 58 25 29 2c 26 | 31 34 2c 53 74 61 72 74 |32+X%),&|14,Start|
|00001f00| 58 25 2b 58 25 2a 4d 58 | 53 50 25 2c 43 59 25 3a |X%+X%*MX|SP%,CY%:|
|00001f10| ed 0d 04 d8 08 20 20 20 | cd 0d 04 e2 07 20 20 ed |..... |..... .|
|00001f20| 0d 04 ec 16 20 cc 3a 20 | 20 f4 20 53 79 73 74 65 |.... .: | . Syste|
|00001f30| 6d 20 66 6f 6e 74 0d 04 | f6 04 0d 05 00 2c 20 ef |m font..|....., .|
|00001f40| 32 33 2c 31 37 2c 37 2c | 34 2c 4d 58 53 50 25 3e |23,17,7,|4,MXSP%>|
|00001f50| 3e 58 45 49 47 25 3b 4d | 59 53 50 25 3e 3e 59 45 |>XEIG%;M|YSP%>>YE|
|00001f60| 49 47 25 3b 30 3b 0d 05 | 0a 24 20 e3 20 59 25 3d |IG%;0;..|.$ . Y%=|
|00001f70| 31 20 b8 20 37 3a 43 59 | 25 3d 53 74 61 72 74 59 |1 . 7:CY|%=StartY|
|00001f80| 25 2d 59 25 2a 4d 59 53 | 50 25 0d 05 14 2b 20 20 |%-Y%*MYS|P%...+ |
|00001f90| e7 20 43 59 25 3c 62 6c | 6f 63 6b 25 21 34 30 2b |. CY%<bl|ock%!40+|
|00001fa0| 33 31 20 80 20 43 59 25 | 3e 3d 62 6c 6f 63 6b 25 |31 . CY%|>=block%|
|00001fb0| 21 33 32 20 8c 0d 05 1e | 2e 20 20 20 ec 20 53 74 |!32 ....|. . St|
|00001fc0| 61 72 74 58 25 2c 43 59 | 25 3a f1 20 43 24 28 59 |artX%,CY|%:. C$(Y|
|00001fd0| 25 29 3b 3a e7 20 59 25 | 3d 30 20 f1 20 43 24 28 |%);:. Y%|=0 . C$(|
|00001fe0| 38 29 3b 0d 05 28 07 20 | 20 cd 0d 05 32 06 20 ed |8);..(. | ...2. .|
|00001ff0| 0d 05 3c 16 20 ef 32 33 | 2c 31 37 2c 37 2c 34 2c |..<. .23|,17,7,4,|
|00002000| 38 3b 38 3b 30 3b 0d 05 | 46 06 20 cd 0d 05 50 1d |8;8;0;..|F. ...P.|
|00002010| 20 c8 99 20 47 65 74 52 | 25 2c 2c 62 6c 6f 63 6b | .. GetR|%,,block|
|00002020| 25 20 b8 20 66 6c 61 67 | 25 0d 05 5a 05 ce 0d 05 |% . flag|%..Z....|
|00002030| 64 10 e7 20 63 75 72 66 | 25 3e 2d 31 20 8c 0d 05 |d.. curf|%>-1 ...|
|00002040| 6e 05 cc 0d 05 78 26 20 | ef 32 33 2c 31 37 2c 37 |n....x& |.23,17,7|
|00002050| 2c 34 2c 31 36 3e 3e 58 | 45 49 47 25 3b 33 32 3e |,4,16>>X|EIG%;32>|
|00002060| 3e 59 45 49 47 25 3b 30 | 3b 0d 05 82 05 cd 0d 05 |>YEIG%;0|;.......|
|00002070| 8c 05 e1 0d 05 96 05 3a | 0d 05 a0 11 dd 20 f2 4f |.......:|..... .O|
|00002080| 70 65 6e 57 69 6e 64 6f | 77 0d 05 aa 1f c8 99 22 |penWindo|w......"|
|00002090| 57 69 6d 70 5f 4f 70 65 | 6e 57 69 6e 64 6f 77 22 |Wimp_Ope|nWindow"|
|000020a0| 2c 2c 62 6c 6f 63 6b 25 | 0d 05 b4 05 e1 0d 05 be |,,block%|........|
|000020b0| 05 3a 0d 05 c8 12 dd 20 | f2 43 6c 6f 73 65 57 69 |.:..... |.CloseWi|
|000020c0| 6e 64 6f 77 0d 05 d2 35 | 21 62 6c 6f 63 6b 25 3d |ndow...5|!block%=|
|000020d0| 57 69 6e 64 6f 77 48 61 | 6e 64 6c 65 3a c8 99 22 |WindowHa|ndle:.."|
|000020e0| 57 69 6d 70 5f 43 6c 6f | 73 65 57 69 6e 64 6f 77 |Wimp_Clo|seWindow|
|000020f0| 22 2c 2c 62 6c 6f 63 6b | 25 0d 05 fa 05 e1 0d 06 |",,block|%.......|
|00002100| 04 05 3a 0d 06 0e 15 dd | 20 f2 50 6f 69 6e 74 65 |..:.....| .Pointe|
|00002110| 72 4c 65 61 76 69 6e 67 | 0d 06 18 20 50 6f 6c 6c |rLeaving|... Poll|
|00002120| 46 6c 61 67 73 3d 50 6f | 6c 6c 46 6c 61 67 73 20 |Flags=Po|llFlags |
|00002130| 84 20 28 31 3c 3c 30 29 | 0d 06 22 05 e1 0d 06 2c |. (1<<0)|.."....,|
|00002140| 05 3a 0d 06 36 16 dd 20 | f2 50 6f 69 6e 74 65 72 |.:..6.. |.Pointer|
|00002150| 45 6e 74 65 72 69 6e 67 | 0d 06 40 22 50 6f 6c 6c |Entering|..@"Poll|
|00002160| 46 6c 61 67 73 3d 50 6f | 6c 6c 46 6c 61 67 73 20 |Flags=Po|llFlags |
|00002170| 80 20 ac 20 28 31 3c 3c | 30 29 0d 06 4a 16 57 61 |. . (1<<|0)..J.Wa|
|00002180| 73 44 6f 77 6e 25 3d a6 | 20 48 6f 74 4b 65 79 25 |sDown%=.| HotKey%|
|00002190| 0d 06 54 05 e1 0d 06 5e | 05 3a 0d 06 68 0e dd 20 |..T....^|.:..h.. |
|000021a0| f2 4d 65 73 73 61 67 65 | 0d 06 72 1d e7 20 62 6c |.Message|..r.. bl|
|000021b0| 6f 63 6b 25 21 34 3c 3e | 74 61 73 6b 68 61 6e 64 |ock%!4<>|taskhand|
|000021c0| 6c 65 25 20 8c 0d 06 7c | 12 c8 8e 20 62 6c 6f 63 |le% ...||... bloc|
|000021d0| 6b 25 21 31 36 20 ca 0d | 06 86 16 20 20 c9 20 30 |k%!16 ..|... . 0|
|000021e0| 20 3a f2 73 68 75 74 64 | 6f 77 6e 3a e0 0d 06 90 | :.shutd|own:....|
|000021f0| 21 20 20 c9 20 31 20 3a | f4 20 20 50 52 4f 43 73 |! . 1 :|. PROCs|
|00002200| 65 6e 64 64 61 74 61 73 | 61 76 65 61 63 6b 0d 06 |enddatas|aveack..|
|00002210| 9a 14 20 20 c9 20 32 20 | 3a f2 64 61 74 61 73 61 |.. . 2 |:.datasa|
|00002220| 76 65 0d 06 a4 30 20 20 | c9 20 34 20 3a f2 66 6f |ve...0 |. 4 :.fo|
|00002230| 6c 6c 6f 77 75 70 3a f4 | 20 4c 6f 61 64 65 64 20 |llowup:.| Loaded |
|00002240| 69 6e 74 6f 20 6f 74 68 | 65 72 20 74 61 73 6b 20 |into oth|er task |
|00002250| 4f 4b 0d 06 ae 1c 20 20 | c9 20 26 34 30 30 43 31 |OK.... |. &400C1|
|00002260| 3a f2 52 65 61 64 4d 6f | 64 65 56 61 72 73 0d 06 |:.ReadMo|deVars..|
|00002270| b8 16 20 20 c9 20 26 35 | 30 32 20 20 3a f2 44 6f |.. . &5|02 :.Do|
|00002280| 48 65 6c 70 0d 06 c2 05 | cb 0d 06 cc 05 cd 0d 06 |Help....|........|
|00002290| d6 05 e1 0d 06 e0 05 3a | 0d 06 ea 10 dd 20 a4 43 |.......:|..... .C|
|000022a0| 48 28 58 25 2c 59 25 29 | 0d 06 f4 0f 43 25 3d 58 |H(X%,Y%)|....C%=X|
|000022b0| 25 2b 59 25 2a 33 32 0d | 06 fe 16 e7 20 43 25 3c |%+Y%*32.|.... C%<|
|000022c0| 33 32 20 84 20 43 25 3d | 31 32 37 20 8c 0d 07 08 |32 . C%=|127 ....|
|000022d0| 26 20 e7 20 43 25 3d 31 | 32 37 20 8c 20 43 25 3d |& . C%=1|27 . C%=|
|000022e0| 97 22 3f 22 20 8b 20 43 | 25 3d 43 25 20 84 20 97 |."?" . C|%=C% . .|
|000022f0| 22 40 22 0d 07 12 28 20 | 43 68 61 72 44 65 66 3f |"@"...( |CharDef?|
|00002300| 30 3d 43 25 3a c8 99 22 | 4f 53 5f 57 6f 72 64 22 |0=C%:.."|OS_Word"|
|00002310| 2c 31 30 2c 43 68 61 72 | 44 65 66 0d 07 1c 0f 20 |,10,Char|Def.... |
|00002320| 43 24 3d bd 32 33 2b bd | 33 32 0d 07 26 0f 20 e3 |C$=.23+.|32..&. .|
|00002330| 20 49 25 3d 31 20 b8 20 | 38 0d 07 30 1d 20 20 43 | I%=1 . |8..0. C|
|00002340| 24 2b 3d bd 28 43 68 61 | 72 44 65 66 3f 49 25 20 |$+=.(Cha|rDef?I% |
|00002350| 82 20 26 46 46 29 0d 07 | 3a 06 20 ed 0d 07 44 0c |. &FF)..|:. ...D.|
|00002360| 20 43 24 2b 3d 22 20 22 | 0d 07 4e 05 cc 0d 07 58 | C$+=" "|..N....X|
|00002370| 0b 20 43 24 3d bd 43 25 | 0d 07 62 05 cd 0d 07 6c |. C$=.C%|..b....l|
|00002380| 07 3d 43 24 0d 07 76 05 | 3a 0d 07 80 13 dd 20 f2 |.=C$..v.|:..... .|
|00002390| 52 65 61 64 4d 6f 64 65 | 56 61 72 73 0d 07 8a 30 |ReadMode|Vars...0|
|000023a0| c8 99 22 4f 53 5f 52 65 | 61 64 56 64 75 56 61 72 |.."OS_Re|adVduVar|
|000023b0| 69 61 62 6c 65 73 22 2c | 49 6e 70 75 74 56 61 72 |iables",|InputVar|
|000023c0| 73 2c 4f 75 74 70 75 74 | 56 61 72 73 0d 07 94 29 |s,Output|Vars...)|
|000023d0| 58 45 49 47 25 3d 4f 75 | 74 70 75 74 56 61 72 73 |XEIG%=Ou|tputVars|
|000023e0| 21 30 3a 59 45 49 47 25 | 3d 4f 75 74 70 75 74 56 |!0:YEIG%|=OutputV|
|000023f0| 61 72 73 21 34 0d 07 9e | 0f e7 63 75 72 66 25 3e |ars!4...|..curf%>|
|00002400| 2d 31 20 8c 0d 07 a8 15 | 20 c8 99 4c 6f 73 65 46 |-1 .....| ..LoseF|
|00002410| 6f 6e 74 2c 63 75 72 66 | 25 0d 07 b2 2e 20 c8 99 |ont,curf|%.... ..|
|00002420| 46 69 6e 64 46 6f 6e 74 | 2c 2c 66 6f 6e 74 24 2c |FindFont|,,font$,|
|00002430| 66 73 31 25 2a 31 36 2c | 66 73 32 25 2a 31 36 20 |fs1%*16,|fs2%*16 |
|00002440| b8 20 63 75 72 66 25 0d | 07 bc 05 cd 0d 07 c6 05 |. curf%.|........|
|00002450| e1 0d 07 d0 05 3a 0d 07 | da 37 dd 20 f2 43 68 65 |.....:..|.7. .Che|
|00002460| 63 6b 4d 6f 75 73 65 28 | 6d 6f 75 73 65 78 25 2c |ckMouse(|mousex%,|
|00002470| 6d 6f 75 73 65 79 25 2c | 62 25 2c 68 61 6e 64 6c |mousey%,|b%,handl|
|00002480| 65 25 2c 69 63 6f 6e 25 | 2c 6f 62 25 29 0d 07 db |e%,icon%|,ob%)...|
|00002490| 10 e7 20 28 62 25 20 80 | 20 32 29 20 8c 0d 07 dc |.. (b% .| 2) ....|
|000024a0| 10 c8 8e 20 68 61 6e 64 | 6c 65 25 20 ca 0d 07 dd |... hand|le% ....|
|000024b0| 44 c9 20 2d 32 20 3a 20 | f2 64 6f 6d 65 6e 75 28 |D. -2 : |.domenu(|
|000024c0| 31 30 31 2c 22 3e 49 6e | 66 6f 2c 46 6f 6e 74 73 |101,">In|fo,Fonts|
|000024d0| 2c 52 65 73 69 7a 65 2c | 51 75 69 74 22 2c 22 4e |,Resize,|Quit","N|
|000024e0| 65 77 43 68 61 72 73 20 | 32 22 2c 6d 65 6e 75 25 |ewChars |2",menu%|
|000024f0| 29 0d 07 de 05 cb 0d 07 | df 05 cd 0d 07 e0 1f e7 |).......|........|
|00002500| 20 28 62 25 20 80 20 34 | 29 20 80 20 28 68 61 6e | (b% . 4|) . (han|
|00002510| 64 6c 65 25 3d 2d 32 29 | 20 8c 0d 07 e1 2e 49 6e |dle%=-2)| .....In|
|00002520| 70 75 74 56 61 72 73 21 | 30 3d 34 3a 49 6e 70 75 |putVars!|0=4:Inpu|
|00002530| 74 56 61 72 73 21 34 3d | 35 3a 49 6e 70 75 74 56 |tVars!4=|5:InputV|
|00002540| 61 72 73 21 38 3d 2d 31 | 0d 07 e2 5e f2 52 65 61 |ars!8=-1|...^.Rea|
|00002550| 64 4d 6f 64 65 56 61 72 | 73 3a 62 6c 6f 63 6b 25 |dModeVar|s:block%|
|00002560| 21 31 32 3d 62 6c 6f 63 | 6b 25 21 34 2b 4c 4d 25 |!12=bloc|k%!4+LM%|
|00002570| 2b 33 31 2a 4d 58 53 50 | 25 2b 31 36 2b 52 4d 25 |+31*MXSP|%+16+RM%|
|00002580| 3a 62 6c 6f 63 6b 25 21 | 38 3d 62 6c 6f 63 6b 25 |:block%!|8=block%|
|00002590| 21 31 36 2d 54 4d 25 2d | 37 2a 4d 59 53 50 25 2d |!16-TM%-|7*MYSP%-|
|000025a0| 33 32 2d 42 4d 25 0d 07 | e5 31 21 62 6c 6f 63 6b |32-BM%..|.1!block|
|000025b0| 25 3d 57 69 6e 64 6f 77 | 48 61 6e 64 6c 65 3a 62 |%=Window|Handle:b|
|000025c0| 6c 6f 63 6b 25 21 32 38 | 3d 2d 31 3a f2 4f 70 65 |lock%!28|=-1:.Ope|
|000025d0| 6e 57 69 6e 64 6f 77 0d | 07 e6 05 cd 0d 07 e7 0e |nWindow.|........|
|000025e0| e7 20 62 25 20 80 20 34 | 20 8c 0d 07 ee 1d 20 20 |. b% . 4| ..... |
|000025f0| e7 20 69 63 6f 6e 25 3e | 3d 30 20 80 20 69 63 6f |. icon%>|=0 . ico|
|00002600| 6e 25 3c 3d 33 20 8c 0d | 07 f8 0f 20 20 20 20 f2 |n%<=3 ..|... .|
|00002610| 44 6f 49 63 6f 6e 0d 08 | 02 07 20 20 cc 0d 08 0c |DoIcon..|.. ....|
|00002620| 0f 20 20 20 20 f2 44 6f | 43 68 61 72 0d 08 16 07 |. .Do|Char....|
|00002630| 20 20 cd 0d 08 20 05 cc | 0d 08 2a 04 0d 08 34 09 | ... ..|..*...4.|
|00002640| f4 20 23 23 23 0d 08 3e | 4b f4 20 49 66 20 74 68 |. ###..>|K. If th|
|00002650| 65 20 6d 65 6e 75 20 62 | 75 74 74 6f 6e 20 77 61 |e menu b|utton wa|
|00002660| 73 20 70 72 65 73 73 65 | 64 2c 20 74 68 69 73 20 |s presse|d, this |
|00002670| 77 69 6c 6c 20 63 72 65 | 61 74 65 20 74 68 65 20 |will cre|ate the |
|00002680| 61 70 70 6c 69 63 61 74 | 69 6f 6e 20 6d 65 6e 75 |applicat|ion menu|
|00002690| 0d 08 48 3d f4 20 61 6e | 64 20 69 74 20 77 69 6c |..H=. an|d it wil|
|000026a0| 6c 20 63 61 6c 6c 20 46 | 6f 6e 74 4d 65 6e 75 5f |l call F|ontMenu_|
|000026b0| 53 65 6c 65 63 74 2c 20 | 61 6e 64 20 73 74 6f 72 |Select, |and stor|
|000026c0| 65 20 74 68 65 20 70 6f | 69 6e 74 65 72 0d 08 52 |e the po|inter..R|
|000026d0| 04 0d 08 5c 28 20 e7 20 | 28 62 25 20 80 20 32 29 |...\( . |(b% . 2)|
|000026e0| 20 80 20 68 61 6e 64 6c | 65 25 3d 57 69 6e 64 6f | . handl|e%=Windo|
|000026f0| 77 48 61 6e 64 6c 65 20 | 8c 0d 08 66 40 20 20 20 |wHandle |...f@ |
|00002700| f2 64 6f 6d 65 6e 75 28 | 31 30 31 2c 22 3e 49 6e |.domenu(|101,">In|
|00002710| 66 6f 2c 46 6f 6e 74 73 | 2c 52 65 73 69 7a 65 2c |fo,Fonts|,Resize,|
|00002720| 51 75 69 74 22 2c 22 4e | 65 77 43 68 61 72 73 20 |Quit","N|ewChars |
|00002730| 32 22 2c 6d 65 6e 75 25 | 29 0d 08 70 06 20 cd 0d |2",menu%|)..p. ..|
|00002740| 08 7a 05 cd 0d 08 84 05 | e1 0d 08 8e 05 3a 0d 08 |.z......|.....:..|
|00002750| 98 12 dd 20 f2 6d 65 6e | 75 5f 73 65 6c 65 63 74 |... .men|u_select|
|00002760| 0d 08 a2 09 f4 20 23 23 | 23 0d 08 ac 42 f4 20 49 |..... ##|#...B. I|
|00002770| 66 20 74 68 65 20 75 73 | 65 72 20 73 65 6c 65 63 |f the us|er selec|
|00002780| 74 65 64 20 73 6f 6d 65 | 74 68 69 6e 67 20 66 72 |ted some|thing fr|
|00002790| 6f 6d 20 74 68 65 20 66 | 6f 6e 74 20 6d 65 6e 75 |om the f|ont menu|
|000027a0| 2c 20 61 20 63 61 6c 6c | 20 74 6f 0d 08 b6 46 f4 |, a call| to...F.|
|000027b0| 20 46 6f 6e 74 4d 65 6e | 75 5f 44 65 63 6f 64 65 | FontMen|u_Decode|
|000027c0| 46 6f 6e 74 4d 65 6e 75 | 20 69 73 20 6d 61 64 65 |FontMenu| is made|
|000027d0| 20 74 6f 20 67 65 74 20 | 74 68 65 20 73 65 6c 65 | to get |the sele|
|000027e0| 63 74 65 64 20 66 6f 6e | 74 20 73 74 72 69 6e 67 |cted fon|t string|
|000027f0| 2e 0d 08 c0 43 f4 20 41 | 20 62 6f 6f 6c 65 61 6e |....C. A| boolean|
|00002800| 20 69 73 20 73 65 74 20 | 74 6f 20 54 52 55 45 20 | is set |to TRUE |
|00002810| 74 6f 20 69 6e 64 69 63 | 61 74 65 20 74 68 61 74 |to indic|ate that|
|00002820| 20 61 20 6e 65 77 20 66 | 6f 6e 74 20 6d 61 79 20 | a new f|ont may |
|00002830| 68 61 76 65 0d 08 ca 14 | f4 20 62 65 65 6e 20 73 |have....|. been s|
|00002840| 65 6c 65 63 74 65 64 2e | 0d 08 d4 04 0d 08 de 17 |elected.|........|
|00002850| 66 66 6c 25 3d a3 3a 61 | 24 3d 22 22 3a 66 63 68 |ffl%=.:a|$="":fch|
|00002860| 25 3d 30 0d 08 e8 04 0d | 08 f2 49 f4 20 2a 2a 2a |%=0.....|..I. ***|
|00002870| 2a 20 42 75 67 20 66 69 | 78 20 31 3a 20 44 4f 4e |* Bug fi|x 1: DON|
|00002880| 27 54 20 63 61 6c 6c 20 | 46 6f 6e 74 4d 65 6e 75 |'T call |FontMenu|
|00002890| 5f 44 65 63 6f 64 65 46 | 6f 6e 74 4d 65 6e 75 20 |_DecodeF|ontMenu |
|000028a0| 69 66 20 74 68 65 20 73 | 65 6c 65 63 74 69 6f 6e |if the s|election|
|000028b0| 0d 08 fc 43 f4 20 64 69 | 64 6e 27 74 20 67 65 74 |...C. di|dn't get|
|000028c0| 20 61 73 20 66 61 72 20 | 61 73 20 74 68 65 20 66 | as far |as the f|
|000028d0| 6f 6e 74 73 21 21 21 20 | 28 41 62 6f 72 74 20 6f |onts!!! |(Abort o|
|000028e0| 6e 20 64 61 74 61 20 74 | 72 61 6e 73 66 65 72 2e |n data t|ransfer.|
|000028f0| 2e 2e 29 0d 09 06 17 f4 | 20 20 20 20 20 20 8a 8a |..).....| ..|
|00002900| 8a 8a 8a 8a 8a 8a 8a 8a | 8a 8a 0d 09 10 04 0d 09 |........|........|
|00002910| 1a 10 c8 8e 20 21 62 6c | 6f 63 6b 25 20 ca 0d 09 |.... !bl|ock% ...|
|00002920| 24 1f 20 20 c9 20 30 3a | 20 f4 20 27 49 6e 66 6f |$. . 0:| . 'Info|
|00002930| 27 2d 20 44 6f 20 6e 6f | 74 68 69 6e 67 0d 09 2e |'- Do no|thing...|
|00002940| 15 20 20 c9 20 31 3a 20 | f4 20 27 46 6f 6e 74 20 |. . 1: |. 'Font |
|00002950| 89 27 0d 09 38 1a 20 20 | 20 20 20 20 e7 20 62 6c |.'..8. | . bl|
|00002960| 6f 63 6b 25 21 34 3c 3e | 2d 31 20 8c 0d 09 42 12 |ock%!4<>|-1 ...B.|
|00002970| 20 20 20 20 20 20 20 20 | 66 66 6c 25 3d b9 0d 09 | |ffl%=...|
|00002980| 4c 45 20 20 20 20 20 20 | 20 20 c8 99 20 22 46 6f |LE | .. "Fo|
|00002990| 6e 74 4d 65 6e 75 5f 44 | 65 63 6f 64 65 46 6f 6e |ntMenu_D|ecodeFon|
|000029a0| 74 4d 65 6e 75 22 2c 62 | 6c 6f 63 6b 25 2b 34 2c |tMenu",b|lock%+4,|
|000029b0| c4 32 30 30 2c 22 20 22 | 29 20 b8 20 66 63 68 25 |.200," "|) . fch%|
|000029c0| 2c 61 24 0d 09 56 26 20 | 20 20 20 20 20 20 20 e7 |,a$..V& | .|
|000029d0| 20 61 24 3d 22 22 20 8c | 20 61 24 3d 22 53 79 73 | a$="" .| a$="Sys|
|000029e0| 74 65 6d 20 46 6f 6e 74 | 22 0d 09 60 0b 20 20 20 |tem Font|"..`. |
|000029f0| 20 20 20 cd 0d 09 6a 04 | 0d 09 74 14 20 20 c9 20 | ...j.|..t. . |
|00002a00| 32 3a 20 f4 20 27 52 65 | 73 65 74 27 0d 09 7e 12 |2: . 'Re|set'..~.|
|00002a10| 20 20 20 20 f2 72 65 73 | 65 74 73 69 7a 65 0d 09 | .res|etsize..|
|00002a20| 88 04 0d 09 92 13 20 20 | c9 20 33 3a 20 f4 20 27 |...... |. 3: . '|
|00002a30| 51 75 69 74 27 0d 09 94 | 11 20 20 20 20 f2 73 68 |Quit'...|. .sh|
|00002a40| 75 74 64 6f 77 6e 0d 09 | 9a 09 20 20 20 20 e0 0d |utdown..|.. ..|
|00002a50| 09 a6 05 cb 0d 09 b0 04 | 0d 09 ba 47 f4 20 2a 2a |........|...G. **|
|00002a60| 2a 2a 20 42 75 67 20 66 | 69 78 20 32 3a 20 50 4c |** Bug f|ix 2: PL|
|00002a70| 45 41 53 45 20 69 6e 69 | 74 69 61 6c 69 73 65 20 |EASE ini|tialise |
|00002a80| 76 61 72 69 61 62 6c 65 | 73 21 21 21 20 49 66 20 |variable|s!!! If |
|00002a90| 74 68 65 20 66 69 72 73 | 74 20 63 6c 69 63 6b 0d |the firs|t click.|
|00002aa0| 09 c4 4a f4 20 61 66 74 | 65 72 20 73 74 61 72 74 |..J. aft|er start|
|00002ab0| 75 70 20 77 61 73 20 61 | 6e 20 41 64 6a 75 73 74 |up was a|n Adjust|
|00002ac0| 2d 63 6c 69 63 6b 20 6f | 6e 20 27 49 6e 66 6f 27 |-click o|n 'Info'|
|00002ad0| 2c 20 61 6e 20 65 72 72 | 6f 72 20 6f 63 63 75 72 |, an err|or occur|
|00002ae0| 65 64 20 61 74 20 74 68 | 65 0d 09 ce 2e f4 20 6e |ed at th|e..... n|
|00002af0| 65 78 74 20 6c 69 6e 65 | 20 64 75 65 20 74 6f 20 |ext line| due to |
|00002b00| 61 24 20 62 65 69 6e 67 | 20 75 6e 69 6e 69 74 69 |a$ being| uniniti|
|00002b10| 61 6c 69 73 65 64 21 0d | 09 d8 04 0d 09 e2 17 e7 |alised!.|........|
|00002b20| 20 66 63 68 25 20 f2 6e | 65 77 66 6f 6e 74 28 61 | fch% .n|ewfont(a|
|00002b30| 24 29 0d 09 ec 24 c8 99 | 20 22 57 69 6d 70 5f 47 |$)...$..| "Wimp_G|
|00002b40| 65 74 50 6f 69 6e 74 65 | 72 49 6e 66 6f 22 2c 2c |etPointe|rInfo",,|
|00002b50| 62 6c 6f 63 6b 25 0d 09 | f6 04 0d 0a 00 1b e7 20 |block%..|....... |
|00002b60| 28 21 28 62 6c 6f 63 6b | 25 2b 38 29 20 80 20 31 |(!(block|%+8) . 1|
|00002b70| 29 3e 30 20 8c 0d 0a 0a | 0b 20 20 f4 20 23 23 23 |)>0 ....|. . ###|
|00002b80| 0d 0a 14 45 20 20 f4 20 | 54 68 65 20 75 73 65 72 |...E . |The user|
|00002b90| 20 73 65 6c 65 63 74 65 | 64 20 77 69 74 68 20 74 | selecte|d with t|
|00002ba0| 68 65 20 41 44 4a 55 53 | 54 20 62 75 74 74 6f 6e |he ADJUS|T button|
|00002bb0| 2c 20 73 6f 20 69 66 20 | 66 66 6c 25 20 69 73 20 |, so if |ffl% is |
|00002bc0| 54 52 55 45 2c 0d 0a 1e | 4c 20 20 f4 20 46 6f 6e |TRUE,...|L . Fon|
|00002bd0| 74 4d 65 6e 75 5f 53 65 | 6c 65 63 74 20 68 61 73 |tMenu_Se|lect has|
|00002be0| 20 74 6f 20 62 65 20 63 | 61 6c 6c 65 64 20 61 67 | to be c|alled ag|
|00002bf0| 61 69 6e 2e 20 54 68 69 | 73 20 77 61 79 20 74 68 |ain. Thi|s way th|
|00002c00| 65 20 66 6f 6e 74 20 6d | 65 6e 75 20 74 69 63 6b |e font m|enu tick|
|00002c10| 73 0d 0a 28 4a 20 20 f4 | 20 77 69 6c 6c 20 62 65 |s..(J .| will be|
|00002c20| 20 75 70 64 61 74 65 64 | 2e 20 54 68 65 20 72 65 | updated|. The re|
|00002c30| 74 75 72 6e 65 64 20 6d | 65 6e 75 20 70 74 72 20 |turned m|enu ptr |
|00002c40| 69 73 20 73 74 6f 72 65 | 64 20 69 6e 20 74 68 65 |is store|d in the|
|00002c50| 20 27 53 75 62 2d 4d 65 | 6e 75 27 0d 0a 32 4b 20 | 'Sub-Me|nu'..2K |
|00002c60| 20 f4 20 77 6f 72 64 20 | 6f 66 20 74 68 65 20 27 | . word |of the '|
|00002c70| 46 6f 6e 74 73 27 20 65 | 6e 74 72 79 2c 20 61 6e |Fonts' e|ntry, an|
|00002c80| 64 20 74 68 65 20 4d 65 | 6e 75 57 61 72 6e 69 6e |d the Me|nuWarnin|
|00002c90| 67 46 6c 61 67 20 6f 66 | 20 74 65 20 6d 65 6e 75 |gFlag of| te menu|
|00002ca0| 20 66 6c 61 67 73 0d 0a | 3c 43 20 20 f4 20 6f 66 | flags..|<C . of|
|00002cb0| 20 74 68 69 73 20 65 6e | 74 72 79 20 69 73 20 63 | this en|try is c|
|00002cc0| 6c 65 61 72 65 64 2e 20 | 54 68 69 73 20 69 73 20 |leared. |This is |
|00002cd0| 6e 65 63 65 73 73 61 72 | 79 20 66 6f 72 20 74 68 |necessar|y for th|
|00002ce0| 65 20 57 69 6d 70 20 74 | 6f 0d 0a 46 2a 20 20 f4 |e Wimp t|o..F* .|
|00002cf0| 20 61 75 74 6f 6d 61 74 | 69 63 6c 79 20 72 65 2d | automat|icly re-|
|00002d00| 6f 70 65 6e 20 74 68 65 | 20 6d 65 6e 75 20 74 72 |open the| menu tr|
|00002d10| 65 65 2e 0d 0a 50 04 0d | 0a 5a 0e 20 20 e7 20 66 |ee...P..|.Z. . f|
|00002d20| 66 6c 25 20 8c 0d 0a 64 | 19 20 20 20 20 c8 99 20 |fl% ...d|. .. |
|00002d30| 22 48 6f 75 72 67 6c 61 | 73 73 5f 4f 6e 22 0d 0a |"Hourgla|ss_On"..|
|00002d40| 6e 30 20 20 20 20 c8 99 | 20 22 46 6f 6e 74 4d 65 |n0 ..| "FontMe|
|00002d50| 6e 75 5f 53 65 6c 65 63 | 74 22 2c 66 6f 6e 74 24 |nu_Selec|t",font$|
|00002d60| 2c 31 20 b8 20 2c 6d 65 | 6e 75 25 21 35 36 0d 0a |,1 . ,me|nu%!56..|
|00002d70| 78 1a 20 20 20 20 c8 99 | 20 22 48 6f 75 72 67 6c |x. ..| "Hourgl|
|00002d80| 61 73 73 5f 4f 66 66 22 | 0d 0a 82 07 20 20 cd 0d |ass_Off"|.... ..|
|00002d90| 0a 8c 04 0d 0a 96 21 20 | 20 c8 99 20 22 57 69 6d |......! | .. "Wim|
|00002da0| 70 5f 43 72 65 61 74 65 | 4d 65 6e 75 22 2c 2c 6d |p_Create|Menu",,m|
|00002db0| 65 6e 75 25 0d 0a a0 05 | cd 0d 0a aa 05 e1 0d 0a |enu%....|........|
|00002dc0| b4 04 0d 0a be 12 dd 20 | f2 6e 65 77 66 6f 6e 74 |....... |.newfont|
|00002dd0| 28 61 24 29 0d 0a c8 1a | e7 20 61 24 3c 3e 22 22 |(a$)....|. a$<>""|
|00002de0| 20 80 20 61 24 3c 3e 66 | 6f 6e 74 24 20 8c 0d 0a | . a$<>f|ont$ ...|
|00002df0| d2 2a 20 20 e7 63 75 72 | 66 25 3e 2d 31 20 c8 99 |.* .cur|f%>-1 ..|
|00002e00| 20 4c 6f 73 65 46 6f 6e | 74 2c 63 75 72 66 25 3a | LoseFon|t,curf%:|
|00002e10| 63 75 72 66 25 3d 2d 31 | 0d 0a dc 0e 20 20 66 6f |curf%=-1|.... fo|
|00002e20| 6e 74 24 3d 61 24 0d 0a | e6 41 20 20 e7 20 61 24 |nt$=a$..|.A . a$|
|00002e30| 3c 3e 22 53 79 73 74 65 | 6d 20 46 6f 6e 74 22 20 |<>"Syste|m Font" |
|00002e40| c8 99 20 46 69 6e 64 46 | 6f 6e 74 2c 2c 61 24 2c |.. FindF|ont,,a$,|
|00002e50| 66 73 31 25 2a 31 36 2c | 66 73 32 25 2a 31 36 20 |fs1%*16,|fs2%*16 |
|00002e60| b8 20 63 75 72 66 25 0d | 0a f0 2b 20 20 c8 99 20 |. curf%.|..+ .. |
|00002e70| 53 63 72 65 65 6e 2c 57 | 69 6e 64 6f 77 48 61 6e |Screen,W|indowHan|
|00002e80| 64 6c 65 2c 30 2c 2d 32 | 30 34 38 2c 32 30 34 38 |dle,0,-2|048,2048|
|00002e90| 2c 30 0d 0a fa 05 cd 0d | 0b 04 05 cb 0d 0b 0e 05 |,0......|........|
|00002ea0| e1 0d 0b 18 05 3a 0d 0b | 22 0d dd 20 f2 44 6f 43 |.....:..|".. .DoC|
|00002eb0| 68 61 72 0d 0b 2c 1e e7 | 20 62 6c 6f 63 6b 25 21 |har..,..| block%!|
|00002ec0| 31 32 3d 57 69 6e 64 6f | 77 48 61 6e 64 6c 65 20 |12=Windo|wHandle |
|00002ed0| 8c 0d 0b 36 2b 20 43 68 | 61 72 25 3d a4 43 6f 6f |...6+ Ch|ar%=.Coo|
|00002ee0| 72 64 73 54 6f 43 68 61 | 72 28 62 6c 6f 63 6b 25 |rdsToCha|r(block%|
|00002ef0| 21 30 2c 62 6c 6f 63 6b | 25 21 34 29 0d 0b 40 32 |!0,block|%!4)..@2|
|00002f00| 20 e7 20 43 68 61 72 25 | 3c 3e 2d 31 20 80 20 43 | . Char%|<>-1 . C|
|00002f10| 68 61 72 25 3e 33 31 20 | f2 73 65 6e 64 63 68 61 |har%>31 |.sendcha|
|00002f20| 72 28 43 68 61 72 25 2c | 66 6f 6e 74 24 29 0d 0b |r(Char%,|font$)..|
|00002f30| 4a 05 cd 0d 0b 54 05 e1 | 0d 0b 5e 05 3a 0d 0b 68 |J....T..|..^.:..h|
|00002f40| 0d dd 20 f2 44 6f 49 63 | 6f 6e 0d 0b 72 0e c8 8e |.. .DoIc|on..r...|
|00002f50| 20 69 63 6f 6e 25 20 ca | 0d 0b 7c 1c c9 20 30 3a | icon% .|..|.. 0:|
|00002f60| f2 6e 65 77 66 6f 6e 74 | 28 22 44 69 6e 67 42 61 |.newfont|("DingBa|
|00002f70| 74 73 22 29 0d 0b 86 1b | c9 20 31 3a f2 6e 65 77 |ts")....|. 1:.new|
|00002f80| 66 6f 6e 74 28 22 53 79 | 6d 62 6f 6c 42 22 29 0d |font("Sy|mbolB").|
|00002f90| 0b 90 23 c9 20 32 3a f2 | 6e 65 77 66 6f 6e 74 28 |..#. 2:.|newfont(|
|00002fa0| 22 48 6f 6d 65 72 74 6f | 6e 2e 4d 65 64 69 75 6d |"Homerto|n.Medium|
|00002fb0| 22 29 0d 0b 9a 22 c9 20 | 33 3a f2 6e 65 77 66 6f |")...". |3:.newfo|
|00002fc0| 6e 74 28 22 54 72 69 6e | 69 74 79 2e 4d 65 64 69 |nt("Trin|ity.Medi|
|00002fd0| 75 6d 22 29 0d 0b a4 05 | cb 0d 0b ae 05 e1 0d 0b |um")....|........|
|00002fe0| b8 05 3a 0d 0b c2 0d dd | 20 f2 44 6f 48 65 6c 70 |..:.....| .DoHelp|
|00002ff0| 0d 0b cc 1e e7 20 62 6c | 6f 63 6b 25 21 33 32 3d |..... bl|ock%!32=|
|00003000| 57 69 6e 64 6f 77 48 61 | 6e 64 6c 65 20 8c 0d 0b |WindowHa|ndle ...|
|00003010| d6 1c 20 48 69 73 54 61 | 73 6b 48 61 6e 64 6c 65 |.. HisTa|skHandle|
|00003020| 25 3d 62 6c 6f 63 6b 25 | 21 34 0d 0b e0 15 20 48 |%=block%|!4.... H|
|00003030| 69 73 52 65 66 25 3d 62 | 6c 6f 63 6b 25 21 38 0d |isRef%=b|lock%!8.|
|00003040| 0b ea 2d 20 43 68 61 72 | 25 3d a4 43 6f 6f 72 64 |..- Char|%=.Coord|
|00003050| 73 54 6f 43 68 61 72 28 | 62 6c 6f 63 6b 25 21 32 |sToChar(|block%!2|
|00003060| 30 2c 62 6c 6f 63 6b 25 | 21 32 34 29 0d 0b f4 12 |0,block%|!24)....|
|00003070| 20 e7 20 43 68 61 72 25 | 3c 3e 2d 31 20 8c 0d 0b | . Char%|<>-1 ...|
|00003080| fe ba 20 20 4d 45 53 24 | 3d 22 43 6c 69 63 6b 20 |.. MES$|="Click |
|00003090| 53 45 4c 45 43 54 20 6f | 72 20 70 72 65 73 73 20 |SELECT o|r press |
|000030a0| 41 4c 54 20 6b 65 79 20 | 74 6f 20 65 6e 74 65 72 |ALT key |to enter|
|000030b0| 20 63 68 61 72 61 63 74 | 65 72 20 63 6f 64 65 20 | charact|er code |
|000030c0| 26 22 2b a4 48 28 43 68 | 61 72 25 29 2b 22 20 61 |&"+.H(Ch|ar%)+" a|
|000030d0| 73 20 69 66 20 66 72 6f | 6d 20 74 68 65 20 6b 65 |s if fro|m the ke|
|000030e0| 79 62 6f 61 72 64 2e 20 | 50 72 65 73 73 20 4d 45 |yboard. |Press ME|
|000030f0| 4e 55 20 74 6f 20 63 68 | 61 6e 67 65 20 74 68 65 |NU to ch|ange the|
|00003100| 20 64 69 73 70 6c 61 79 | 65 64 20 66 6f 6e 74 2c | display|ed font,|
|00003110| 20 6f 72 20 72 65 73 69 | 7a 65 20 66 6f 6e 74 20 | or resi|ze font |
|00003120| 74 6f 20 66 69 74 20 6e | 65 77 20 77 69 6e 64 6f |to fit n|ew windo|
|00003130| 77 20 73 69 7a 65 2e 22 | 0d 0c 08 22 20 20 62 6c |w size."|..." bl|
|00003140| 6f 63 6b 25 21 30 3d 28 | 28 32 30 2b a9 4d 45 53 |ock%!0=(|(20+.MES|
|00003150| 24 2b 31 29 2b 33 29 80 | ac 33 0d 0c 12 17 20 20 |$+1)+3).|.3.... |
|00003160| 62 6c 6f 63 6b 25 21 31 | 32 3d 48 69 73 52 65 66 |block%!1|2=HisRef|
|00003170| 25 0d 0c 1c 14 20 20 62 | 6c 6f 63 6b 25 21 31 36 |%.... b|lock%!16|
|00003180| 3d 26 35 30 33 0d 0c 26 | 17 20 20 24 28 62 6c 6f |=&503..&|. $(blo|
|00003190| 63 6b 25 2b 32 30 29 3d | 4d 45 53 24 0d 0c 30 19 |ck%+20)=|MES$..0.|
|000031a0| 20 20 62 6c 6f 63 6b 25 | 3f 28 32 30 2b a9 4d 45 | block%|?(20+.ME|
|000031b0| 53 24 29 3d 30 0d 0c 3a | 39 20 20 c8 99 22 57 69 |S$)=0..:|9 .."Wi|
|000031c0| 6d 70 5f 53 65 6e 64 4d | 65 73 73 61 67 65 22 2c |mp_SendM|essage",|
|000031d0| 4d 65 73 73 61 67 65 41 | 2c 62 6c 6f 63 6b 25 2c |MessageA|,block%,|
|000031e0| 48 69 73 54 61 73 6b 48 | 61 6e 64 6c 65 25 0d 0c |HisTaskH|andle%..|
|000031f0| 44 06 20 cd 0d 0c 4e 05 | cd 0d 0c 58 05 e1 0d 0c |D. ...N.|...X....|
|00003200| 62 05 3a 0d 0c 6c 24 dd | 20 a4 43 6f 6f 72 64 73 |b.:..l$.| .Coords|
|00003210| 54 6f 43 68 61 72 28 4d | 6f 75 73 65 58 25 2c 4d |ToChar(M|ouseX%,M|
|00003220| 6f 75 73 65 59 25 29 0d | 0c 76 18 21 62 6c 6f 63 |ouseY%).|.v.!bloc|
|00003230| 6b 25 3d 57 69 6e 64 6f | 77 48 61 6e 64 6c 65 0d |k%=Windo|wHandle.|
|00003240| 0c 80 13 c8 99 20 47 65 | 74 57 2c 2c 62 6c 6f 63 |..... Ge|tW,,bloc|
|00003250| 6b 25 0d 0c 8a 42 59 4f | 66 66 25 3d 28 62 6c 6f |k%...BYO|ff%=(blo|
|00003260| 63 6b 25 21 31 36 2d 54 | 4d 25 2d 62 6c 6f 63 6b |ck%!16-T|M%-block|
|00003270| 25 21 32 34 2b 28 28 4d | 59 53 50 25 2d 33 32 29 |%!24+((M|YSP%-32)|
|00003280| 3e 3e 31 29 2d 4d 6f 75 | 73 65 59 25 29 81 20 4d |>>1)-Mou|seY%). M|
|00003290| 59 53 50 25 0d 0c 94 0c | 43 68 61 72 25 3d 2d 31 |YSP%....|Char%=-1|
|000032a0| 0d 0c 9e 1b e7 20 59 4f | 66 66 25 3e 3d 30 20 80 |..... YO|ff%>=0 .|
|000032b0| 20 59 4f 66 66 25 3c 3d | 37 20 8c 0d 0c a8 44 20 | YOff%<=|7 ....D |
|000032c0| 58 4f 66 66 25 3d 28 4d | 6f 75 73 65 58 25 2d 28 |XOff%=(M|ouseX%-(|
|000032d0| 62 6c 6f 63 6b 25 21 34 | 2b 4c 4d 25 2d 62 6c 6f |block%!4|+LM%-blo|
|000032e0| 63 6b 25 21 32 30 2b 28 | 28 31 36 2d 4d 58 53 50 |ck%!20+(|(16-MXSP|
|000032f0| 25 29 3e 3e 31 29 29 29 | 81 20 4d 58 53 50 25 0d |%)>>1)))|. MXSP%.|
|00003300| 0c b2 1d 20 e7 20 58 4f | 66 66 25 3e 3d 30 20 80 |... . XO|ff%>=0 .|
|00003310| 20 58 4f 66 66 25 3c 3d | 33 31 20 8c 0d 0c bc 1a | XOff%<=|31 .....|
|00003320| 20 20 43 68 61 72 25 3d | 58 4f 66 66 25 2b 59 4f | Char%=|XOff%+YO|
|00003330| 66 66 25 2a 33 32 0d 0c | c6 06 20 cd 0d 0c d0 05 |ff%*32..|.. .....|
|00003340| cd 0d 0c da 0a 3d 43 68 | 61 72 25 0d 0c e4 05 3a |.....=Ch|ar%....:|
|00003350| 0d 0c ee 0b dd 20 f2 76 | 61 72 73 0d 0c f8 1e 46 |..... .v|ars....F|
|00003360| 6f 6e 74 20 20 20 20 3d | 20 28 31 3c 3c 31 38 29 |ont =| (1<<18)|
|00003370| 20 2b 20 28 32 3c 3c 36 | 29 0d 0d 02 14 46 69 6e | + (2<<6|)....Fin|
|00003380| 64 46 6f 6e 74 3d 20 46 | 6f 6e 74 2b 31 0d 0d 0c |dFont= F|ont+1...|
|00003390| 14 4c 6f 73 65 46 6f 6e | 74 3d 20 46 6f 6e 74 2b |.LoseFon|t= Font+|
|000033a0| 32 0d 0d 16 14 50 61 69 | 6e 74 25 20 20 3d 20 46 |2....Pai|nt% = F|
|000033b0| 6f 6e 74 2b 36 0d 0d 20 | 15 53 65 74 46 6f 6e 74 |ont+6.. |.SetFont|
|000033c0| 20 3d 20 46 6f 6e 74 2b | 31 30 0d 0d 2a 1e 57 69 | = Font+|10..*.Wi|
|000033d0| 6d 70 20 20 20 20 3d 20 | 28 31 3c 3c 31 38 29 20 |mp = |(1<<18) |
|000033e0| 2b 20 28 33 3c 3c 36 29 | 0d 0d 34 14 43 72 65 61 |+ (3<<6)|..4.Crea|
|000033f0| 74 65 57 20 3d 20 57 69 | 6d 70 2b 31 0d 0d 3e 14 |teW = Wi|mp+1..>.|
|00003400| 50 6f 6c 6c 25 20 20 20 | 3d 20 57 69 6d 70 2b 37 |Poll% |= Wimp+7|
|00003410| 0d 0d 48 14 52 65 64 72 | 61 77 57 20 3d 20 57 69 |..H.Redr|awW = Wi|
|00003420| 6d 70 2b 38 0d 0d 52 14 | 55 70 64 61 74 65 57 20 |mp+8..R.|UpdateW |
|00003430| 3d 20 57 69 6d 70 2b 39 | 0d 0d 5c 15 47 65 74 52 |= Wimp+9|..\.GetR|
|00003440| 25 20 20 20 3d 20 57 69 | 6d 70 2b 31 30 0d 0d 66 |% = Wi|mp+10..f|
|00003450| 15 47 65 74 57 20 20 20 | 20 3d 20 57 69 6d 70 2b |.GetW | = Wimp+|
|00003460| 31 31 0d 0d 70 15 47 65 | 74 50 20 20 20 20 3d 20 |11..p.Ge|tP = |
|00003470| 57 69 6d 70 2b 31 35 0d | 0d 7a 15 44 72 61 67 20 |Wimp+15.|.z.Drag |
|00003480| 20 20 20 3d 20 57 69 6d | 70 2b 31 36 0d 0d 84 15 | = Wim|p+16....|
|00003490| 53 63 72 65 65 6e 20 20 | 3d 20 57 69 6d 70 2b 31 |Screen |= Wimp+1|
|000034a0| 37 0d 0d 8e 15 43 72 4d | 65 6e 75 20 20 3d 20 57 |7....CrM|enu = W|
|000034b0| 69 6d 70 2b 32 30 0d 0d | 98 15 44 63 4d 65 6e 75 |imp+20..|..DcMenu|
|000034c0| 20 20 3d 20 57 69 6d 70 | 2b 32 31 0d 0d a2 16 53 | = Wimp|+21....S|
|000034d0| 65 74 46 6f 6e 74 43 20 | 3d 20 57 69 6d 70 2b 35 |etFontC |= Wimp+5|
|000034e0| 31 0d 0d ac 04 0d 0d b6 | 15 43 5f 4d 65 6e 75 54 |1.......|.C_MenuT|
|000034f0| 69 74 6c 65 66 67 20 3d | 20 37 0d 0d c0 15 43 5f |itlefg =| 7....C_|
|00003500| 4d 65 6e 75 54 69 74 6c | 65 62 67 20 3d 20 32 0d |MenuTitl|ebg = 2.|
|00003510| 0d ca 10 43 5f 4d 65 6e | 75 66 67 20 3d 20 37 0d |...C_Men|ufg = 7.|
|00003520| 0d d4 10 43 5f 4d 65 6e | 75 62 67 20 3d 20 30 0d |...C_Men|ubg = 0.|
|00003530| 0d de 14 43 5f 4d 65 6e | 75 49 74 65 6d 66 67 20 |...C_Men|uItemfg |
|00003540| 3d 20 37 0d 0d e8 14 43 | 5f 4d 65 6e 75 49 74 65 |= 7....C|_MenuIte|
|00003550| 6d 62 67 20 3d 20 30 0d | 0d f2 05 e1 0d 0d fc 05 |mbg = 0.|........|
|00003560| 3a 0d 0e 06 19 dd 20 a4 | 48 28 58 25 29 3d c2 22 |:..... .|H(X%)=."|
|00003570| 30 22 2b c3 7e 58 25 2c | 32 29 0d 0e 10 05 3a 0d |0"+.~X%,|2)....:.|
|00003580| 0e 1a 2e dd 20 f2 64 6f | 6d 65 6e 75 28 68 61 6e |.... .do|menu(han|
|00003590| 64 6c 65 25 2c 6d 65 6e | 75 24 2c 6d 65 6e 75 74 |dle%,men|u$,menut|
|000035a0| 69 74 6c 65 24 2c 4d 62 | 75 66 66 25 29 0d 0e 24 |itle$,Mb|uff%)..$|
|000035b0| 0b ea 20 43 25 2c 48 25 | 0d 0e 2e 0e 43 25 3d 30 |.. C%,H%|....C%=0|
|000035c0| 3a 48 25 3d 34 34 0d 0e | 38 17 6d 65 6e 75 68 61 |:H%=44..|8.menuha|
|000035d0| 6e 64 6c 65 25 3d 68 61 | 6e 64 6c 65 25 0d 0e 42 |ndle%=ha|ndle%..B|
|000035e0| 13 6d 65 6e 75 70 74 72 | 25 3d 4d 62 75 66 66 25 |.menuptr|%=Mbuff%|
|000035f0| 0d 0e 4c 08 69 25 3d 30 | 0d 0e 56 18 24 6d 65 6e |..L.i%=0|..V.$men|
|00003600| 75 70 74 72 25 3d 6d 65 | 6e 75 74 69 74 6c 65 24 |uptr%=me|nutitle$|
|00003610| 0d 0e 60 37 6d 65 6e 75 | 70 74 72 25 3f 31 32 3d |..`7menu|ptr%?12=|
|00003620| 43 5f 4d 65 6e 75 54 69 | 74 6c 65 66 67 3a 6d 65 |C_MenuTi|tlefg:me|
|00003630| 6e 75 70 74 72 25 3f 31 | 33 3d 43 5f 4d 65 6e 75 |nuptr%?1|3=C_Menu|
|00003640| 54 69 74 6c 65 62 67 0d | 0e 6a 2d 6d 65 6e 75 70 |Titlebg.|.j-menup|
|00003650| 74 72 25 3f 31 34 3d 43 | 5f 4d 65 6e 75 66 67 3a |tr%?14=C|_Menufg:|
|00003660| 6d 65 6e 75 70 74 72 25 | 3f 31 35 3d 43 5f 4d 65 |menuptr%|?15=C_Me|
|00003670| 6e 75 62 67 0d 0e 74 33 | 6d 65 6e 75 70 74 72 25 |nubg..t3|menuptr%|
|00003680| 21 31 36 3d 31 39 36 2d | 34 38 3a 6d 65 6e 75 70 |!16=196-|48:menup|
|00003690| 74 72 25 21 32 30 3d 48 | 25 3a 6d 65 6e 75 70 74 |tr%!20=H|%:menupt|
|000036a0| 72 25 21 32 34 3d 30 0d | 0e 7e 10 6d 65 6e 75 70 |r%!24=0.|.~.menup|
|000036b0| 74 72 25 2b 3d 32 38 0d | 0e 88 37 f5 20 69 74 65 |tr%+=28.|..7. ite|
|000036c0| 6d 24 3d a4 70 61 72 28 | 22 2c 22 29 3a f2 6d 65 |m$=.par(|","):.me|
|000036d0| 6e 75 69 74 65 6d 28 69 | 74 65 6d 24 29 3a 43 25 |nuitem(i|tem$):C%|
|000036e0| 2b 3d 31 3a fd 20 69 74 | 65 6d 24 3d 22 22 0d 0e |+=1:. it|em$=""..|
|000036f0| 92 23 6d 65 6e 75 70 74 | 72 25 21 2d 32 34 3d 28 |.#menupt|r%!-24=(|
|00003700| 6d 65 6e 75 70 74 72 25 | 21 2d 32 34 29 84 26 38 |menuptr%|!-24).&8|
|00003710| 30 0d 0e 9c 04 0d 0e a6 | 17 20 20 c8 99 20 22 48 |0.......|. .. "H|
|00003720| 6f 75 72 67 6c 61 73 73 | 5f 4f 6e 22 0d 0e b0 2f |ourglass|_On".../|
|00003730| 20 20 c8 99 20 22 46 6f | 6e 74 4d 65 6e 75 5f 53 | .. "Fo|ntMenu_S|
|00003740| 65 6c 65 63 74 22 2c 66 | 6f 6e 74 24 2c 31 20 b8 |elect",f|ont$,1 .|
|00003750| 20 2c 4d 62 75 66 66 25 | 21 35 36 0d 0e ba 18 20 | ,Mbuff%|!56.... |
|00003760| 20 c8 99 20 22 48 6f 75 | 72 67 6c 61 73 73 5f 4f | .. "Hou|rglass_O|
|00003770| 66 66 22 0d 0e c4 04 0d | 0e ce 7d e7 20 69 63 6f |ff".....|..}. ico|
|00003780| 6e 25 3d 2d 32 20 20 8c | 20 c8 99 20 22 57 69 6d |n%=-2 .| .. "Wim|
|00003790| 70 5f 43 72 65 61 74 65 | 4d 65 6e 75 22 2c 2c 4d |p_Create|Menu",,M|
|000037a0| 62 75 66 66 25 2c 6d 6f | 75 73 65 78 25 2d 36 34 |buff%,mo|usex%-64|
|000037b0| 2c 39 36 2b 28 28 43 25 | 2d 31 29 2a 48 25 29 20 |,96+((C%|-1)*H%) |
|000037c0| 8b 20 c8 99 20 22 57 69 | 6d 70 5f 43 72 65 61 74 |. .. "Wi|mp_Creat|
|000037d0| 65 4d 65 6e 75 22 2c 2c | 4d 62 75 66 66 25 2c 6d |eMenu",,|Mbuff%,m|
|000037e0| 6f 75 73 65 78 25 2d 36 | 34 2c 6d 6f 75 73 65 79 |ousex%-6|4,mousey|
|000037f0| 25 2b 32 34 0d 0e d8 05 | e1 0d 0e e2 05 3a 0d 0e |%+24....|.....:..|
|00003800| ec 16 dd 20 f2 6d 65 6e | 75 69 74 65 6d 28 74 65 |... .men|uitem(te|
|00003810| 78 74 24 29 0d 0e f6 10 | e7 20 74 65 78 74 24 3d |xt$)....|. text$=|
|00003820| 22 22 20 e1 0d 0f 00 0f | 21 6d 65 6e 75 70 74 72 |"" .....|!menuptr|
|00003830| 25 3d 30 0d 0f 0a 11 6d | 65 6e 75 70 74 72 25 21 |%=0....m|enuptr%!|
|00003840| 34 3d 2d 31 0d 0f 14 37 | e7 20 c0 74 65 78 74 24 |4=-1...7|. .text$|
|00003850| 2c 32 29 3d 22 3e 49 22 | 20 6d 65 6e 75 70 74 72 |,2)=">I"| menuptr|
|00003860| 25 21 34 3d 69 6e 66 6f | 25 20 3a 20 74 65 78 74 |%!4=info|% : text|
|00003870| 24 3d c1 74 65 78 74 24 | 2c 32 29 0d 0f 1e 4a e7 |$=.text$|,2)...J.|
|00003880| 20 c0 74 65 78 74 24 2c | 31 29 3d 22 23 22 20 6d | .text$,|1)="#" m|
|00003890| 65 6e 75 70 74 72 25 21 | 34 3d 31 3a 21 6d 65 6e |enuptr%!|4=1:!men|
|000038a0| 75 70 74 72 25 3d 21 6d | 65 6e 75 70 74 72 25 20 |uptr%=!m|enuptr% |
|000038b0| 84 20 38 20 3a 20 74 65 | 78 74 24 3d c1 74 65 78 |. 8 : te|xt$=.tex|
|000038c0| 74 24 2c 32 29 0d 0f 28 | 18 6d 65 6e 75 70 74 72 |t$,2)..(|.menuptr|
|000038d0| 25 21 38 3d 26 30 37 30 | 30 30 30 32 31 0d 0f 32 |%!8=&070|00021..2|
|000038e0| 18 24 28 6d 65 6e 75 70 | 74 72 25 2b 31 32 29 3d |.$(menup|tr%+12)=|
|000038f0| 74 65 78 74 24 0d 0f 3c | 10 6d 65 6e 75 70 74 72 |text$..<|.menuptr|
|00003900| 25 2b 3d 32 34 0d 0f 46 | 05 e1 0d 0f 50 05 3a 0d |%+=24..F|....P.:.|
|00003910| 0f 5a 10 dd 20 a4 70 61 | 72 28 73 65 70 24 29 0d |.Z.. .pa|r(sep$).|
|00003920| 0f 64 25 69 31 25 3d 69 | 25 2b 31 3a 69 25 3d a7 |.d%i1%=i|%+1:i%=.|
|00003930| 6d 65 6e 75 24 2b 73 65 | 70 24 2c 73 65 70 24 2c |menu$+se|p$,sep$,|
|00003940| 69 31 25 29 0d 0f 6e 17 | 3d c1 6d 65 6e 75 24 2c |i1%)..n.|=.menu$,|
|00003950| 69 31 25 2c 69 25 2d 69 | 31 25 29 0d 0f 78 05 3a |i1%,i%-i|1%)..x.:|
|00003960| 0d 0f 82 10 dd 20 f2 74 | 65 6d 70 6c 61 74 65 73 |..... .t|emplates|
|00003970| 0d 0f 8c 3e ee 20 85 20 | ee 85 87 3a c8 99 22 57 |...>. . |...:.."W|
|00003980| 69 6d 70 5f 43 6c 6f 73 | 65 44 6f 77 6e 22 2c 74 |imp_Clos|eDown",t|
|00003990| 61 73 6b 68 61 6e 64 6c | 65 25 2c 21 54 41 53 4b |askhandl|e%,!TASK|
|000039a0| 3a 85 20 a2 20 9f 2c f6 | 24 2b c3 28 9e 29 0d 0f |:. . .,.|$+.(.)..|
|000039b0| 96 04 0d 0f a0 31 c8 99 | 22 57 69 6d 70 5f 4f 70 |.....1..|"Wimp_Op|
|000039c0| 65 6e 54 65 6d 70 6c 61 | 74 65 22 2c 2c 22 3c 4f |enTempla|te",,"<O|
|000039d0| 62 65 79 24 44 69 72 3e | 2e 54 65 6d 70 6c 61 74 |bey$Dir>|.Templat|
|000039e0| 65 73 22 0d 0f aa 07 ea | 20 85 0d 0f b4 2f ee 20 |es".....| ..../. |
|000039f0| 85 20 f7 20 85 3a c8 99 | 22 57 69 6d 70 5f 43 6c |. . .:..|"Wimp_Cl|
|00003a00| 6f 73 65 54 65 6d 70 6c | 61 74 65 22 3a 85 20 9f |oseTempl|ate":. .|
|00003a10| 2c 20 f6 24 2b c3 28 9e | 29 0d 0f be 15 69 6e 66 |, .$+.(.|)....inf|
|00003a20| 6f 25 3d 2d 31 3a 66 6f | 6e 74 24 3d 22 22 0d 0f |o%=-1:fo|nt$=""..|
|00003a30| c8 53 c8 99 22 57 69 6d | 70 5f 4c 6f 61 64 54 65 |.S.."Wim|p_LoadTe|
|00003a40| 6d 70 6c 61 74 65 22 2c | 2c 62 6c 6f 63 6b 25 2b |mplate",|,block%+|
|00003a50| 34 2c 69 6e 64 5f 64 61 | 74 61 25 2c 69 6e 64 5f |4,ind_da|ta%,ind_|
|00003a60| 64 61 74 61 25 2b 35 31 | 32 2c 2d 31 2c 22 49 6e |data%+51|2,-1,"In|
|00003a70| 66 6f 22 2c 30 20 b8 20 | 2c 2c 63 75 72 70 74 72 |fo",0 . |,,curptr|
|00003a80| 25 0d 0f d2 2b c8 99 22 | 57 69 6d 70 5f 43 72 65 |%...+.."|Wimp_Cre|
|00003a90| 61 74 65 57 69 6e 64 6f | 77 22 2c 2c 62 6c 6f 63 |ateWindo|w",,bloc|
|00003aa0| 6b 25 2b 34 20 b8 20 69 | 6e 66 6f 25 0d 0f dc 4b |k%+4 . i|nfo%...K|
|00003ab0| c8 99 22 57 69 6d 70 5f | 4c 6f 61 64 54 65 6d 70 |.."Wimp_|LoadTemp|
|00003ac0| 6c 61 74 65 22 2c 2c 62 | 6c 6f 63 6b 25 2b 34 2c |late",,b|lock%+4,|
|00003ad0| 63 75 72 70 74 72 25 2c | 69 6e 64 5f 64 61 74 61 |curptr%,|ind_data|
|00003ae0| 25 2b 35 31 32 2c 2d 31 | 2c 22 43 68 61 72 61 63 |%+512,-1|,"Charac|
|00003af0| 74 65 72 73 22 2c 30 0d | 0f e6 07 f7 20 85 0d 0f |ters",0.|.... ...|
|00003b00| f0 1a c8 99 22 57 69 6d | 70 5f 43 6c 6f 73 65 54 |...."Wim|p_CloseT|
|00003b10| 65 6d 70 6c 61 74 65 22 | 0d 0f fa 04 0d 10 04 20 |emplate"|....... |
|00003b20| de 20 49 6e 70 75 74 56 | 61 72 73 20 31 32 2c 20 |. InputV|ars 12, |
|00003b30| 4f 75 74 70 75 74 56 61 | 72 73 20 38 0d 10 0e 47 |OutputVa|rs 8...G|
|00003b40| 49 6e 70 75 74 56 61 72 | 73 21 30 3d 34 3a 49 6e |InputVar|s!0=4:In|
|00003b50| 70 75 74 56 61 72 73 21 | 34 3d 35 3a 49 6e 70 75 |putVars!|4=5:Inpu|
|00003b60| 74 56 61 72 73 21 38 3d | 2d 31 3a f4 20 58 45 69 |tVars!8=|-1:. XEi|
|00003b70| 67 46 61 63 74 6f 72 2c | 20 59 45 69 67 46 61 63 |gFactor,| YEigFac|
|00003b80| 74 6f 72 0d 10 18 11 f2 | 52 65 61 64 4d 6f 64 65 |tor.....|ReadMode|
|00003b90| 56 61 72 73 0d 10 22 2a | 62 6c 6f 63 6b 25 21 31 |Vars.."*|block%!1|
|00003ba0| 32 3d 62 6c 6f 63 6b 25 | 21 34 2b 4c 4d 25 2b 33 |2=block%|!4+LM%+3|
|00003bb0| 31 2a 4d 58 53 50 25 2b | 31 36 2b 52 4d 25 0d 10 |1*MXSP%+|16+RM%..|
|00003bc0| 2c 29 62 6c 6f 63 6b 25 | 21 38 3d 62 6c 6f 63 6b |,)block%|!8=block|
|00003bd0| 25 21 31 36 2d 54 4d 25 | 2d 37 2a 4d 59 53 50 25 |%!16-TM%|-7*MYSP%|
|00003be0| 2d 33 32 2d 42 4d 25 0d | 10 36 32 c8 99 22 57 69 |-32-BM%.|.62.."Wi|
|00003bf0| 6d 70 5f 43 72 65 61 74 | 65 57 69 6e 64 6f 77 22 |mp_Creat|eWindow"|
|00003c00| 2c 2c 62 6c 6f 63 6b 25 | 2b 34 20 b8 20 57 69 6e |,,block%|+4 . Win|
|00003c10| 64 6f 77 48 61 6e 64 6c | 65 0d 10 40 05 e1 0d 10 |dowHandl|e..@....|
|00003c20| 4a 04 0d 10 54 1f f4 20 | 20 53 45 4e 44 20 43 48 |J...T.. | SEND CH|
|00003c30| 41 52 20 54 4f 20 41 50 | 50 4c 49 43 41 54 49 4f |AR TO AP|PLICATIO|
|00003c40| 4e 0d 10 5e 1f f4 20 20 | 2d 2d 2d 2d 2d 2d 2d 2d |N..^.. |--------|
|00003c50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003c60| 0d 10 68 05 f4 0d 10 72 | 57 f4 20 20 49 66 20 74 |..h....r|W. If t|
|00003c70| 68 65 20 61 70 70 6c 69 | 63 61 74 69 6f 6e 20 69 |he appli|cation i|
|00003c80| 73 20 49 6d 70 72 65 73 | 73 69 6f 6e 20 74 68 65 |s Impres|sion the|
|00003c90| 6e 20 73 65 6e 64 20 74 | 68 65 20 63 68 61 72 20 |n send t|he char |
|00003ca0| 62 79 20 73 61 76 69 6e | 67 20 61 20 74 65 78 74 |by savin|g a text|
|00003cb0| 20 66 69 6c 65 20 74 6f | 20 74 68 65 0d 10 7c 53 | file to| the..|S|
|00003cc0| f4 20 20 49 6d 70 72 65 | 73 73 69 6f 6e 20 77 69 |. Impre|ssion wi|
|00003cd0| 6e 64 6f 77 2e 20 20 54 | 68 65 20 74 65 78 74 20 |ndow. T|he text |
|00003ce0| 66 69 6c 65 20 77 69 6c | 6c 20 63 6f 6e 74 61 69 |file wil|l contai|
|00003cf0| 6e 20 61 20 44 44 46 20 | 63 6f 6d 6d 61 6e 64 20 |n a DDF |command |
|00003d00| 74 6f 20 73 65 74 20 74 | 68 65 20 66 6f 6e 74 0d |to set t|he font.|
|00003d10| 10 86 26 f4 20 20 28 75 | 6e 6c 65 73 73 20 69 74 |..&. (u|nless it|
|00003d20| 20 69 73 20 74 68 65 20 | 73 79 73 74 65 6d 20 66 | is the |system f|
|00003d30| 6f 6e 74 29 2e 0d 10 90 | 45 f4 20 20 49 66 20 6e |ont)....|E. If n|
|00003d40| 6f 74 20 77 6f 72 6b 69 | 6e 67 20 77 69 74 68 20 |ot worki|ng with |
|00003d50| 49 6d 70 72 65 73 73 69 | 6f 6e 2c 20 74 68 65 6e |Impressi|on, then|
|00003d60| 20 62 65 68 61 76 65 20 | 61 73 20 4e 65 77 43 68 | behave |as NewCh|
|00003d70| 61 72 73 32 20 64 6f 65 | 73 2e 0d 10 9a 04 0d 10 |ars2 doe|s.......|
|00003d80| a4 04 0d 10 ae 1c dd 20 | f2 73 65 6e 64 63 68 61 |....... |.sendcha|
|00003d90| 72 28 63 68 61 72 25 2c | 66 6f 6e 74 24 29 0d 10 |r(char%,|font$)..|
|00003da0| b8 0d ea 20 77 69 6e 64 | 6f 77 25 0d 10 c2 27 e7 |... wind|ow%...'.|
|00003db0| 20 66 6f 6e 74 24 3e 22 | 22 20 80 20 66 6f 6e 74 | font$>"|" . font|
|00003dc0| 24 3c 3e 22 53 79 73 74 | 65 6d 20 46 6f 6e 74 22 |$<>"Syst|em Font"|
|00003dd0| 20 8c 0d 10 cc 27 20 c8 | 99 20 22 57 69 6d 70 5f | ....' .|. "Wimp_|
|00003de0| 47 65 74 43 61 72 65 74 | 50 6f 73 69 74 69 6f 6e |GetCaret|Position|
|00003df0| 22 2c 2c 62 6c 6f 63 6b | 25 0d 10 d6 47 20 77 69 |",,block|%...G wi|
|00003e00| 6e 64 6f 77 25 3d 21 62 | 6c 6f 63 6b 25 3a 69 63 |ndow%=!b|lock%:ic|
|00003e10| 6f 6e 68 25 3d 62 6c 6f | 63 6b 25 21 34 3a 78 63 |onh%=blo|ck%!4:xc|
|00003e20| 6f 6f 72 64 25 3d 62 6c | 6f 63 6b 25 21 38 3a 79 |oord%=bl|ock%!8:y|
|00003e30| 63 6f 6f 72 64 25 3d 62 | 6c 6f 63 6b 25 21 31 32 |coord%=b|lock%!12|
|00003e40| 0d 10 e0 14 20 e7 20 77 | 69 6e 64 6f 77 25 3c 3e |.... . w|indow%<>|
|00003e50| 2d 31 20 8c 0d 10 ea 26 | 20 20 c8 99 20 22 57 69 |-1 ....&| .. "Wi|
|00003e60| 6d 70 5f 47 65 74 57 69 | 6e 64 6f 77 53 74 61 74 |mp_GetWi|ndowStat|
|00003e70| 65 22 2c 2c 62 6c 6f 63 | 6b 25 0d 10 f4 3e 20 20 |e",,bloc|k%...> |
|00003e80| 78 63 6f 6f 72 64 25 2b | 3d 62 6c 6f 63 6b 25 21 |xcoord%+|=block%!|
|00003e90| 34 2d 62 6c 6f 63 6b 25 | 21 32 30 3a 79 63 6f 6f |4-block%|!20:ycoo|
|00003ea0| 72 64 25 2b 3d 62 6c 6f | 63 6b 25 21 31 36 2d 62 |rd%+=blo|ck%!16-b|
|00003eb0| 6c 6f 63 6b 25 21 32 34 | 0d 10 fe 14 20 20 f2 73 |lock%!24|.... .s|
|00003ec0| 65 6e 64 74 6f 69 6d 70 | 72 65 73 73 0d 11 08 06 |endtoimp|ress....|
|00003ed0| 20 cc 0d 11 12 1c 20 20 | ef 37 3a f4 20 20 4e 6f | ..... |.7:. No|
|00003ee0| 20 61 63 74 69 76 65 20 | 77 69 6e 64 6f 77 0d 11 | active |window..|
|00003ef0| 1c 06 20 cd 0d 11 26 4b | cc 3a f4 20 20 49 6e 73 |.. ...&K|.:. Ins|
|00003f00| 65 72 74 20 6b 65 79 20 | 69 6e 74 6f 20 62 75 66 |ert key |into buf|
|00003f10| 66 65 72 20 28 70 6c 61 | 69 6e 20 73 79 73 74 65 |fer (pla|in syste|
|00003f20| 6d 20 66 6f 6e 74 20 63 | 68 61 72 2c 20 6f 72 20 |m font c|har, or |
|00003f30| 6e 6f 74 20 49 6d 70 72 | 65 73 73 69 6f 6e 29 0d |not Impr|ession).|
|00003f40| 11 30 1e 20 c8 99 22 57 | 69 6d 70 5f 50 72 6f 63 |.0. .."W|imp_Proc|
|00003f50| 65 73 73 4b 65 79 22 2c | 63 68 61 72 25 0d 11 3a |essKey",|char%..:|
|00003f60| 05 cd 0d 11 44 05 e1 0d | 11 4e 04 0d 11 58 14 dd |....D...|.N...X..|
|00003f70| 20 f2 73 65 6e 64 74 6f | 69 6d 70 72 65 73 73 0d | .sendto|impress.|
|00003f80| 11 62 31 24 64 64 66 64 | 61 74 61 25 3d 22 7b 66 |.b1$ddfd|ata%="{f|
|00003f90| 6f 6e 74 20 22 2b 66 6f | 6e 74 24 2b 22 7d 22 2b |ont "+fo|nt$+"}"+|
|00003fa0| bd 63 68 61 72 25 2b 22 | 7b 66 6f 6e 74 7d 20 22 |.char%+"|{font} "|
|00003fb0| 0d 11 6c 50 73 61 76 65 | 6e 61 6d 65 24 3d 22 46 |..lPsave|name$="F|
|00003fc0| 6f 6e 74 43 68 61 72 22 | 3a 73 61 76 65 6c 65 6e |ontChar"|:savelen|
|00003fd0| 67 74 68 25 3d a9 20 24 | 64 64 66 64 61 74 61 25 |gth%=. $|ddfdata%|
|00003fe0| 3a 73 61 76 65 74 79 70 | 65 25 3d 26 46 46 46 3a |:savetyp|e%=&FFF:|
|00003ff0| 73 61 76 65 77 69 6e 25 | 3d 77 69 6e 64 6f 77 25 |savewin%|=window%|
|00004000| 0d 11 76 15 73 61 76 65 | 62 75 66 25 3d 64 64 66 |..v.save|buf%=ddf|
|00004010| 64 61 74 61 25 0d 11 80 | 11 f2 69 6e 69 74 69 61 |data%...|..initia|
|00004020| 74 65 73 61 76 65 0d 11 | 8a 05 e1 0d 11 94 04 0d |tesave..|........|
|00004030| 11 9e 0f dd 20 f2 66 6f | 6c 6c 6f 77 75 70 0d 11 |.... .fo|llowup..|
|00004040| a8 14 62 61 63 6b 67 72 | 6f 75 6e 64 6b 65 79 25 |..backgr|oundkey%|
|00004050| 3d 33 0d 11 b2 05 e1 0d | 11 bc 04 0d 11 c6 16 dd |=3......|........|
|00004060| 20 f2 74 69 64 79 75 70 | 28 f8 20 74 69 6d 65 25 | .tidyup|(. time%|
|00004070| 29 0d 11 d0 0e c8 8e 20 | 74 69 6d 65 25 20 ca 0d |)...... |time% ..|
|00004080| 11 da 30 c9 20 33 3a c8 | 99 22 57 69 6d 70 5f 50 |..0. 3:.|."Wimp_P|
|00004090| 72 6f 63 65 73 73 4b 65 | 79 22 2c 26 31 38 44 3a |rocessKe|y",&18D:|
|000040a0| f4 20 20 43 75 72 73 6f | 72 20 72 69 67 68 74 0d |. Curso|r right.|
|000040b0| 11 e4 30 c9 20 32 3a c8 | 99 22 57 69 6d 70 5f 50 |..0. 2:.|."Wimp_P|
|000040c0| 72 6f 63 65 73 73 4b 65 | 79 22 2c 26 31 38 44 3a |rocessKe|y",&18D:|
|000040d0| f4 20 20 43 75 72 73 6f | 72 20 72 69 67 68 74 0d |. Curso|r right.|
|000040e0| 11 ee 29 c9 20 31 3a c8 | 99 22 57 69 6d 70 5f 50 |..). 1:.|."Wimp_P|
|000040f0| 72 6f 63 65 73 73 4b 65 | 79 22 2c 31 32 37 3a f4 |rocessKe|y",127:.|
|00004100| 20 20 44 65 6c 65 74 65 | 0d 11 f8 05 cb 0d 12 02 | Delete|........|
|00004110| 0c 74 69 6d 65 25 2d 3d | 31 0d 12 0c 05 e1 0d 12 |.time%-=|1.......|
|00004120| 16 04 0d 12 20 14 f4 20 | 20 49 4e 49 54 49 41 54 |.... .. | INITIAT|
|00004130| 45 20 53 41 56 45 0d 12 | 2a 14 f4 20 20 2d 2d 2d |E SAVE..|*.. ---|
|00004140| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 12 34 05 f4 0d |--------|--..4...|
|00004150| 12 3e 3c f4 20 20 4e 6f | 74 65 3a 20 20 73 61 76 |.><. No|te: sav|
|00004160| 65 6e 61 6d 65 24 2c 20 | 73 61 76 65 6c 65 6e 67 |ename$, |saveleng|
|00004170| 74 68 25 2c 20 73 61 76 | 65 74 79 70 65 25 20 61 |th%, sav|etype% a|
|00004180| 6e 64 20 73 61 76 65 77 | 69 6e 25 0d 12 48 1c f4 |nd savew|in%..H..|
|00004190| 20 20 6d 75 73 74 20 68 | 61 76 65 20 62 65 65 6e | must h|ave been|
|000041a0| 20 73 65 74 20 75 70 0d | 12 52 04 0d 12 5c 13 dd | set up.|.R...\..|
|000041b0| 20 f2 69 6e 69 74 69 61 | 74 65 73 61 76 65 0d 12 | .initia|tesave..|
|000041c0| 66 30 f4 20 53 65 6e 64 | 20 64 61 74 61 73 61 76 |f0. Send| datasav|
|000041d0| 65 20 6d 65 73 73 61 67 | 65 20 74 6f 20 64 65 73 |e messag|e to des|
|000041e0| 74 69 6e 61 74 69 6f 6e | 20 74 61 73 6b 3a 0d 12 |tination| task:..|
|000041f0| 70 28 62 6c 6f 63 6b 25 | 21 32 30 3d 73 61 76 65 |p(block%|!20=save|
|00004200| 77 69 6e 25 20 3a f4 20 | 20 77 69 6e 64 6f 77 20 |win% :. | window |
|00004210| 68 61 6e 64 6c 65 0d 12 | 7a 26 62 6c 6f 63 6b 25 |handle..|z&block%|
|00004220| 21 32 34 3d 69 63 6f 6e | 68 25 20 20 20 3a f4 20 |!24=icon|h% :. |
|00004230| 20 69 63 6f 6e 20 68 61 | 6e 64 6c 65 0d 12 84 23 | icon ha|ndle...#|
|00004240| 62 6c 6f 63 6b 25 21 32 | 38 3d 78 63 6f 6f 72 64 |block%!2|8=xcoord|
|00004250| 25 20 20 3a f4 20 20 78 | 20 63 6f 2d 6f 72 64 0d |% :. x| co-ord.|
|00004260| 12 8e 23 62 6c 6f 63 6b | 25 21 33 32 3d 79 63 6f |..#block|%!32=yco|
|00004270| 6f 72 64 25 20 20 3a f4 | 20 20 79 20 63 6f 2d 6f |ord% :.| y co-o|
|00004280| 72 64 0d 12 98 2f 62 6c | 6f 63 6b 25 21 33 36 3d |rd.../bl|ock%!36=|
|00004290| 73 61 76 65 6c 65 6e 67 | 74 68 25 20 20 3a f4 20 |saveleng|th% :. |
|000042a0| 20 65 73 74 69 6d 61 74 | 65 64 20 6c 65 6e 67 74 | estimat|ed lengt|
|000042b0| 68 0d 12 a2 27 62 6c 6f | 63 6b 25 21 30 3d 36 34 |h...'blo|ck%!0=64|
|000042c0| 20 20 20 20 20 20 20 20 | 3a f4 20 20 62 6c 6f 63 | |:. bloc|
|000042d0| 6b 20 6c 65 6e 67 74 68 | 0d 12 ac 23 62 6c 6f 63 |k length|...#bloc|
|000042e0| 6b 25 21 31 32 3d 30 20 | 20 20 20 20 20 20 20 3a |k%!12=0 | :|
|000042f0| f4 20 20 79 6f 75 72 5f | 72 65 66 0d 12 b6 2e 62 |. your_|ref....b|
|00004300| 6c 6f 63 6b 25 21 31 36 | 3d 31 20 20 20 20 20 20 |lock%!16|=1 |
|00004310| 20 20 3a f4 20 20 6d 65 | 73 73 61 67 65 20 61 63 | :. me|ssage ac|
|00004320| 74 69 6f 6e 3d 73 61 76 | 65 0d 12 c0 17 62 6c 6f |tion=sav|e....blo|
|00004330| 63 6b 25 21 34 30 3d 73 | 61 76 65 74 79 70 65 25 |ck%!40=s|avetype%|
|00004340| 0d 12 ca 24 24 28 62 6c | 6f 63 6b 25 2b 34 34 29 |...$$(bl|ock%+44)|
|00004350| 3d a4 67 65 74 6c 65 61 | 66 28 73 61 76 65 6e 61 |=.getlea|f(savena|
|00004360| 6d 65 24 29 0d 12 d4 37 | c8 99 20 22 57 69 6d 70 |me$)...7|.. "Wimp|
|00004370| 5f 53 65 6e 64 4d 65 73 | 73 61 67 65 22 2c 31 38 |_SendMes|sage",18|
|00004380| 2c 62 6c 6f 63 6b 25 2c | 62 6c 6f 63 6b 25 21 32 |,block%,|block%!2|
|00004390| 30 2c 62 6c 6f 63 6b 25 | 21 32 34 0d 12 de 05 e1 |0,block%|!24.....|
|000043a0| 0d 12 e8 04 0d 12 f2 15 | dd 20 a4 67 65 74 6c 65 |........|. .getle|
|000043b0| 61 66 28 6e 61 6d 65 24 | 29 0d 12 fc 12 c8 95 20 |af(name$|)...... |
|000043c0| a7 6e 61 6d 65 24 2c 22 | 2e 22 29 0d 13 06 1f 6e |.name$,"|.")....n|
|000043d0| 61 6d 65 24 3d c1 6e 61 | 6d 65 24 2c a7 6e 61 6d |ame$=.na|me$,.nam|
|000043e0| 65 24 2c 22 2e 22 29 2b | 31 29 0d 13 10 05 ce 0d |e$,".")+|1)......|
|000043f0| 13 1a 0d 3d 6e 61 6d 65 | 24 2b bd 30 0d 13 24 04 |...=name|$+.0..$.|
|00004400| 0d 13 2e 14 dd 20 a4 73 | 74 72 69 6e 67 30 28 70 |..... .s|tring0(p|
|00004410| 74 72 25 29 0d 13 38 08 | ea 20 53 24 0d 13 42 0c |tr%)..8.|. S$..B.|
|00004420| c8 95 20 3f 70 74 72 25 | 0d 13 4c 0e 53 24 2b 3d |.. ?ptr%|..L.S$+=|
|00004430| bd 3f 70 74 72 25 0d 13 | 56 0b 70 74 72 25 2b 3d |.?ptr%..|V.ptr%+=|
|00004440| 31 0d 13 60 05 ce 0d 13 | 6a 07 3d 53 24 0d 13 74 |1..`....|j.=S$..t|
|00004450| 04 0d 13 7e 10 f4 20 20 | 44 41 54 41 20 53 41 56 |...~.. |DATA SAV|
|00004460| 45 0d 13 88 10 f4 20 20 | 2d 2d 2d 2d 2d 2d 2d 2d |E..... |--------|
|00004470| 2d 0d 13 92 05 f4 0d 13 | 9c 45 f4 20 20 4e 6f 74 |-.......|.E. Not|
|00004480| 65 3a 20 20 73 61 76 65 | 6e 61 6d 65 25 2c 20 73 |e: save|name%, s|
|00004490| 61 76 65 62 75 66 25 20 | 73 61 76 65 6c 65 6e 67 |avebuf% |saveleng|
|000044a0| 74 68 25 2c 20 73 61 76 | 65 74 79 70 65 25 20 61 |th%, sav|etype% a|
|000044b0| 6e 64 20 73 61 76 65 77 | 69 6e 25 0d 13 a6 1d f4 |nd savew|in%.....|
|000044c0| 20 20 6d 75 73 74 20 68 | 61 76 65 20 62 65 65 6e | must h|ave been|
|000044d0| 20 73 65 74 20 75 70 2e | 0d 13 b0 04 0d 13 ba 0f | set up.|........|
|000044e0| dd 20 f2 64 61 74 61 73 | 61 76 65 0d 13 c4 0f ea |. .datas|ave.....|
|000044f0| 20 66 75 6c 6c 6e 61 6d | 65 24 0d 13 ce 21 66 75 | fullnam|e$...!fu|
|00004500| 6c 6c 6e 61 6d 65 24 3d | a4 73 74 72 69 6e 67 30 |llname$=|.string0|
|00004510| 28 62 6c 6f 63 6b 25 2b | 34 34 29 0d 13 d8 16 f2 |(block%+|44).....|
|00004520| 73 61 76 65 69 74 28 66 | 75 6c 6c 6e 61 6d 65 24 |saveit(f|ullname$|
|00004530| 29 0d 13 e2 28 e7 20 62 | 6c 6f 63 6b 25 21 33 36 |)...(. b|lock%!36|
|00004540| 3e 2d 31 20 8c 20 73 61 | 76 65 6e 61 6d 65 24 3d |>-1 . sa|vename$=|
|00004550| 66 75 6c 6c 6e 61 6d 65 | 24 0d 13 ec 16 62 6c 6f |fullname|$....blo|
|00004560| 63 6b 25 21 31 32 3d 62 | 6c 6f 63 6b 25 21 38 0d |ck%!12=b|lock%!8.|
|00004570| 13 f6 29 62 6c 6f 63 6b | 25 21 31 36 3d 33 3a f4 |..)block|%!16=3:.|
|00004580| 20 20 44 61 74 61 20 6c | 6f 61 64 20 6d 65 73 73 | Data l|oad mess|
|00004590| 61 67 65 20 74 79 70 65 | 0d 14 00 0f 21 62 6c 6f |age type|....!blo|
|000045a0| 63 6b 25 3d 32 35 36 0d | 14 0a 1d f4 20 20 53 65 |ck%=256.|.... Se|
|000045b0| 6e 64 20 64 61 74 61 20 | 6c 6f 61 64 20 6d 65 73 |nd data |load mes|
|000045c0| 73 61 67 65 0d 14 14 37 | c8 99 20 22 57 69 6d 70 |sage...7|.. "Wimp|
|000045d0| 5f 53 65 6e 64 4d 65 73 | 73 61 67 65 22 2c 31 38 |_SendMes|sage",18|
|000045e0| 2c 62 6c 6f 63 6b 25 2c | 62 6c 6f 63 6b 25 21 32 |,block%,|block%!2|
|000045f0| 30 2c 62 6c 6f 63 6b 25 | 21 32 34 0d 14 1e 05 e1 |0,block%|!24.....|
|00004600| 0d 14 28 04 0d 14 32 19 | f4 20 20 53 41 56 45 20 |..(...2.|. SAVE |
|00004610| 54 48 45 20 44 41 54 41 | 20 46 49 4c 45 0d 14 3c |THE DATA| FILE..<|
|00004620| 19 f4 20 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.. ----|--------|
|00004630| 2d 2d 2d 2d 2d 2d 0d 14 | 46 04 0d 14 50 14 dd 20 |------..|F...P.. |
|00004640| f2 73 61 76 65 69 74 28 | 6e 61 6d 65 24 29 0d 14 |.saveit(|name$)..|
|00004650| 5a 42 c8 99 20 22 4f 53 | 5f 46 69 6c 65 22 2c 31 |ZB.. "OS|_File",1|
|00004660| 30 2c 6e 61 6d 65 24 2c | 73 61 76 65 74 79 70 65 |0,name$,|savetype|
|00004670| 25 2c 2c 73 61 76 65 62 | 75 66 25 2c 73 61 76 65 |%,,saveb|uf%,save|
|00004680| 62 75 66 25 2b 73 61 76 | 65 6c 65 6e 67 74 68 25 |buf%+sav|elength%|
|00004690| 0d 14 64 60 f4 20 20 49 | 46 20 28 62 75 74 74 6f |..d`. I|F (butto|
|000046a0| 6e 73 25 20 41 4e 44 20 | 26 31 31 29 3d 30 20 53 |ns% AND |&11)=0 S|
|000046b0| 59 53 20 22 57 69 6d 70 | 5f 43 72 65 61 74 65 4d |YS "Wimp|_CreateM|
|000046c0| 65 6e 75 22 2c 2c 2d 31 | 20 3a 52 45 4d 20 52 65 |enu",,-1| :REM Re|
|000046d0| 6d 6f 76 65 20 6d 65 6e | 75 20 75 6e 6c 65 73 73 |move men|u unless|
|000046e0| 20 41 44 4a 55 53 54 20 | 77 61 73 20 75 73 65 64 | ADJUST |was used|
|000046f0| 0d 14 6e 05 e1 0d 14 78 | 04 0d 14 82 12 f4 20 20 |..n....x|...... |
|00004700| 53 41 56 45 20 46 41 49 | 4c 45 44 0d 14 8c 12 f4 |SAVE FAI|LED.....|
|00004710| 20 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 14 96 | ------|-----...|
|00004720| 04 0d 14 a0 04 0d 14 aa | 11 dd 20 f2 73 61 76 65 |........|.. .save|
|00004730| 66 61 69 6c 65 64 0d 14 | b4 1c c8 99 20 22 4f 53 |failed..|.... "OS|
|00004740| 5f 46 69 6c 65 22 2c 36 | 2c 62 6c 6f 63 6b 25 2b |_File",6|,block%+|
|00004750| 34 34 0d 14 be 3b f2 72 | 65 70 6f 72 74 65 72 72 |44...;.r|eporterr|
|00004760| 6f 72 28 32 35 35 2c 22 | 44 61 74 61 20 74 72 61 |or(255,"|Data tra|
|00004770| 6e 73 66 65 72 20 66 61 | 69 6c 65 64 3a 20 52 65 |nsfer fa|iled: Re|
|00004780| 63 65 69 76 65 72 20 64 | 69 65 64 22 29 0d 14 c8 |ceiver d|ied")...|
|00004790| 05 e1 0d 14 d2 04 0d 14 | dc 13 dd 20 f2 64 65 62 |........|... .deb|
|000047a0| 75 67 28 74 65 78 74 24 | 29 0d 14 e6 1a ef 34 2c |ug(text$|).....4,|
|000047b0| 32 36 3a f1 74 65 78 74 | 24 2b 22 20 20 20 20 20 |26:.text|$+" |
|000047c0| 20 20 22 0d 14 f0 05 e1 | 0d 14 fa 04 0d 15 04 0e | ".....|........|
|000047d0| dd a4 69 63 6f 6e 5f 62 | 61 72 0d 15 0e 09 ea 20 |..icon_b|ar..... |
|000047e0| 69 63 25 0d 15 18 3c 21 | 71 31 25 3d 2d 31 3a 71 |ic%...<!|q1%=-1:q|
|000047f0| 31 25 21 34 3d 30 3a 71 | 31 25 21 38 3d 30 3a 71 |1%!4=0:q|1%!8=0:q|
|00004800| 31 25 21 31 32 3d 36 39 | 3a 71 31 25 21 31 36 3d |1%!12=69|:q1%!16=|
|00004810| 36 38 3a 71 31 25 21 32 | 30 3d 26 33 30 30 32 0d |68:q1%!2|0=&3002.|
|00004820| 15 22 34 24 28 71 31 25 | 2b 32 34 29 3d 73 70 72 |."4$(q1%|+24)=spr|
|00004830| 69 74 65 24 3a c8 99 22 | 57 69 6d 70 5f 43 72 65 |ite$:.."|Wimp_Cre|
|00004840| 61 74 65 49 63 6f 6e 22 | 2c 2c 71 31 25 20 b8 20 |ateIcon"|,,q1% . |
|00004850| 69 63 25 0d 15 2c 08 3d | 69 63 25 0d 15 31 04 0d |ic%..,.=|ic%..1..|
|00004860| 15 36 0e dd f2 73 68 75 | 74 64 6f 77 6e 0d 15 40 |.6...shu|tdown..@|
|00004870| 28 e7 63 75 72 66 25 3e | 2d 31 20 c8 99 20 4c 6f |(.curf%>|-1 .. Lo|
|00004880| 73 65 46 6f 6e 74 2c 63 | 75 72 66 25 3a 63 75 72 |seFont,c|urf%:cur|
|00004890| 66 25 3d 2d 31 0d 15 4a | 19 c8 99 20 22 46 6f 6e |f%=-1..J|... "Fon|
|000048a0| 74 4d 65 6e 75 5f 52 65 | 6c 65 61 73 65 22 0d 15 |tMenu_Re|lease"..|
|000048b0| 54 16 c8 99 22 57 69 6d | 70 5f 43 6c 6f 73 65 44 |T..."Wim|p_CloseD|
|000048c0| 6f 77 6e 22 0d 15 5e 05 | e1 0d ff 46 69 6c 65 44 |own"..^.|...FileD|
|000048d0| 61 74 61 82 21 52 75 6e | 49 6d 61 67 65 54 00 05 |ata.!Run|ImageT..|
|000048e0| 40 00 00 43 ff ff ff 98 | 80 a2 d2 03 00 93 1e 31 |@..C....|.......1|
|000048f0| 30 52 45 4d 20 3e 20 21 | 49 6d 70 43 68 61 72 73 |0REM > !|ImpChars|
|00004900| 2e 21 52 75 6e 49 6d 61 | 67 65 20 56 31 2e 30 30 |.!RunIma|ge V1.00|
|00004910| 71 20 3c 0a 32 30 52 45 | 4d 20 44 65 72 69 76 65 |q <.20RE|M Derive|
|00004920| 64 20 66 72 6f 6d 20 56 | 65 72 73 69 6f 6e 20 30 |d from V|ersion 0|
|00004930| 2e 32 30 20 28 32 33 20 | 41 70 72 69 6c 20 38 39 |.20 (23 |April 89|
|00004940| 29 0a 33 30 52 45 4d 0a | 34 30 52 45 4d 20 43 6f |).30REM.|40REM Co|
|00004950| 70 79 72 69 67 68 74 20 | a9 20 41 63 6f 72 6e 20 |pyright |. Acorn |
|00004960| 43 6f 6d 70 75 74 65 72 | 73 20 31 39 38 39 0a 35 |Computer|s 1989.5|
|00004970| 30 52 45 4d 20 43 68 61 | 6e 67 65 64 20 6d 61 64 |0REM Cha|nged mad|
|00004980| 65 20 62 79 20 4a 2e 52 | d6 6c 69 6e 67 20 74 6f |e by J.R|.ling to|
|00004990| 20 61 6c 6c 6f 77 20 74 | 68 65 20 75 73 65 20 6f | allow t|he use o|
|000049a0| 66 20 46 6f 6e 74 4d 65 | 6e 75 0a 36 30 52 45 4d |f FontMe|nu.60REM|
|000049b0| 0a 37 30 52 45 4d 20 43 | 68 61 6e 67 65 64 20 62 |.70REM C|hanged b|
|000049c0| 79 20 4a 61 73 6f 6e 20 | 57 69 6c 6c 69 61 6d 73 |y Jason |Williams|
|000049d0| 20 74 6f 20 61 6c 6c 6f | 77 20 72 65 73 69 7a 69 | to allo|w resizi|
|000049e0| 6e 67 20 6f 66 20 77 69 | 6e 64 6f 77 2c 20 62 75 |ng of wi|ndow, bu|
|000049f0| 67 20 66 69 78 65 73 0a | 38 30 52 45 4d 20 28 32 |g fixes.|80REM (2|
|00004a00| 31 20 53 65 70 74 65 6d | 62 65 72 20 27 39 30 29 |1 Septem|ber '90)|
|00004a10| 2e 20 53 65 61 72 63 68 | 20 66 6f 72 20 2a 2a 2a |. Search| for ***|
|00004a20| 2a 20 66 6f 72 20 6d 79 | 20 61 64 64 69 74 69 6f |* for my| additio|
|00004a30| 6e 73 2f 66 69 78 65 73 | 0a 39 30 52 45 4d 0a 31 |ns/fixes|.90REM.1|
|00004a40| 30 30 52 45 4d 20 43 68 | 61 6e 67 65 64 20 62 79 |00REM Ch|anged by|
|00004a50| 20 50 61 75 6c 20 53 6b | 69 72 72 6f 77 20 74 6f | Paul Sk|irrow to|
|00004a60| 20 77 6f 72 6b 20 77 69 | 74 68 20 49 6d 70 72 65 | work wi|th Impre|
|00004a70| 73 73 69 6f 6e 20 61 6e | 64 20 70 61 73 73 20 66 |ssion an|d pass f|
|00004a80| 6f 6e 74 0a 31 31 30 52 | 45 4d 20 69 6e 66 6f 72 |ont.110R|EM infor|
|00004a90| 6d 61 74 69 6f 6e 20 74 | 6f 67 65 68 65 72 20 77 |mation t|ogeher w|
|00004aa0| 69 74 68 20 74 68 65 20 | 63 68 61 72 61 63 74 65 |ith the |characte|
|00004ab0| 72 2e 0a 31 32 30 52 45 | 4d 0a 31 33 30 52 45 4d |r..120RE|M.130REM|
|00004ac0| 20 43 68 61 6e 67 65 64 | 20 62 79 20 43 6c 69 76 | Changed| by Cliv|
|00004ad0| 65 20 57 69 6c 6c 69 61 | 6d 73 20 28 32 32 2e 34 |e Willia|ms (22.4|
|00004ae0| 2e 31 39 39 32 29 20 74 | 6f 20 77 6f 72 6b 20 66 |.1992) t|o work f|
|00004af0| 72 6f 6d 20 74 68 65 20 | 69 63 6f 6e 20 62 61 72 |rom the |icon bar|
|00004b00| 0a 31 34 30 3a 0a 31 35 | 30 3a 0a 31 36 30 52 45 |.140:.15|0:.160RE|
|00004b10| 4d 20 20 20 20 20 20 20 | 20 20 20 54 68 69 73 20 |M | This |
|00004b20| 70 72 6f 67 72 61 6d 20 | 64 65 6d 6f 6e 73 74 72 |program |demonstr|
|00004b30| 61 74 65 73 20 74 68 65 | 20 75 73 65 20 6f 66 20 |ates the| use of |
|00004b40| 46 6f 6e 74 4d 65 6e 75 | 0a 31 37 30 52 45 4d 0a |FontMenu|.170REM.|
|00004b50| 31 38 30 52 45 4d 0a 31 | 39 30 52 45 4d 20 20 20 |180REM.1|90REM |
|00004b60| 20 20 20 20 20 20 20 41 | 6c 6c 20 46 6f 6e 74 4d | A|ll FontM|
|00004b70| 65 6e 75 20 73 70 65 63 | 69 66 69 63 20 63 6f 64 |enu spec|ific cod|
|00004b80| 65 20 69 73 20 6d 61 72 | 6b 65 64 20 77 69 74 68 |e is mar|ked with|
|00004b90| 20 52 45 4d 20 23 23 23 | 0a 32 30 30 52 45 4d 20 | REM ###|.200REM |
|00004ba0| 20 20 20 20 20 20 20 20 | 20 66 6f 6c 6c 6f 77 65 | | followe|
|00004bb0| 64 20 62 79 20 61 20 64 | 69 73 63 72 69 70 74 69 |d by a d|iscripti|
|00004bc0| 6f 6e 20 6f 66 20 74 68 | 65 20 73 70 65 63 69 66 |on of th|e specif|
|00004bd0| 69 63 20 6d 65 61 6e 69 | 6e 67 2e 0a 32 31 30 52 |ic meani|ng..210R|
|00004be0| 45 4d 20 20 20 20 20 20 | 20 20 20 20 4e 6f 74 65 |EM | Note|
|00004bf0| 20 74 68 65 20 75 73 65 | 20 6f 66 20 74 68 65 20 | the use| of the |
|00004c00| 48 6f 75 72 67 6c 61 73 | 73 20 73 74 61 74 65 6d |Hourglas|s statem|
|00004c10| 65 6e 74 73 2e 0a 32 32 | 30 3a 0a 32 33 30 3a 0a |ents..22|0:.230:.|
|00004c20| 32 34 30 3a 0a 32 35 30 | 3a 0a 32 36 30 44 49 4d |240:.250|:.260DIM|
|00004c30| 20 54 41 53 4b 20 34 2c | 20 62 6c 6f 63 6b 25 20 | TASK 4,| block% |
|00004c40| 31 35 31 32 2c 20 43 24 | 28 38 29 2c 20 43 68 61 |1512, C$|(8), Cha|
|00004c50| 72 44 65 66 20 38 2c 20 | 69 6e 64 5f 64 61 74 61 |rDef 8, |ind_data|
|00004c60| 25 20 35 31 32 2c 20 6d | 65 6e 75 25 20 32 35 36 |% 512, m|enu% 256|
|00004c70| 2c 64 64 66 64 61 74 61 | 25 20 32 35 36 0a 32 37 |,ddfdata|% 256.27|
|00004c80| 30 4c 4d 25 3d 31 36 3a | 52 4d 25 3d 31 36 3a 42 |0LM%=16:|RM%=16:B|
|00004c90| 4d 25 3d 31 36 3a 54 4d | 25 3d 31 36 0a 32 38 30 |M%=16:TM|%=16.280|
|00004ca0| 0a 32 39 30 4d 58 53 50 | 25 3d 32 34 3a 4d 59 53 |.290MXSP|%=24:MYS|
|00004cb0| 50 25 3d 34 34 0a 33 30 | 30 66 73 31 25 3d 4d 58 |P%=44.30|0fs1%=MX|
|00004cc0| 53 50 25 2a 28 31 31 2f | 32 34 29 3a 66 73 32 25 |SP%*(11/|24):fs2%|
|00004cd0| 3d 4d 59 53 50 25 2a 28 | 31 35 2f 34 34 29 0a 33 |=MYSP%*(|15/44).3|
|00004ce0| 31 30 0a 33 32 30 46 4f | 52 20 58 25 3d 30 20 54 |10.320FO|R X%=0 T|
|00004cf0| 4f 20 33 31 0a 33 33 30 | 20 49 46 20 58 25 3c 3d |O 31.330| IF X%<=|
|00004d00| 31 35 20 54 48 45 4e 20 | 43 24 28 30 29 2b 3d 46 |15 THEN |C$(0)+=F|
|00004d10| 4e 43 48 28 58 25 2c 30 | 29 20 45 4c 53 45 20 43 |NCH(X%,0|) ELSE C|
|00004d20| 24 28 38 29 2b 3d 46 4e | 43 48 28 58 25 2c 30 29 |$(8)+=FN|CH(X%,0)|
|00004d30| 0a 33 34 30 20 46 4f 52 | 20 59 25 3d 31 20 54 4f |.340 FOR| Y%=1 TO|
|00004d40| 20 37 3a 43 24 28 59 25 | 29 2b 3d 46 4e 43 48 28 | 7:C$(Y%|)+=FNCH(|
|00004d50| 58 25 2c 59 25 29 3a 4e | 45 58 54 0a 33 35 30 4e |X%,Y%):N|EXT.350N|
|00004d60| 45 58 54 0a 33 36 30 52 | 24 3d 43 48 52 24 32 33 |EXT.360R|$=CHR$23|
|00004d70| 2b 43 48 52 24 33 32 2b | 53 54 52 49 4e 47 24 28 |+CHR$32+|STRING$(|
|00004d80| 38 2c 43 48 52 24 30 29 | 3a 43 24 28 33 29 2b 3d |8,CHR$0)|:C$(3)+=|
|00004d90| 52 24 3a 43 24 28 38 29 | 2b 3d 52 24 0a 33 37 30 |R$:C$(8)|+=R$.370|
|00004da0| 0a 33 38 30 52 45 4d 20 | 23 23 23 0a 33 39 30 52 |.380REM |###.390R|
|00004db0| 45 4d 20 54 68 65 20 66 | 6f 6c 6c 6f 77 69 6e 67 |EM The f|ollowing|
|00004dc0| 20 73 74 61 74 65 6d 65 | 6e 74 73 20 77 69 6c 6c | stateme|nts will|
|00004dd0| 20 61 73 73 75 72 65 20 | 74 68 61 74 20 61 20 76 | assure |that a v|
|00004de0| 61 6c 69 64 20 66 6f 6e | 74 20 6d 65 6e 75 20 77 |alid fon|t menu w|
|00004df0| 69 6c 6c 0a 34 30 30 52 | 45 4d 20 62 65 20 61 76 |ill.400R|EM be av|
|00004e00| 61 69 6c 61 62 6c 65 2e | 20 49 66 20 74 68 69 73 |ailable.| If this|
|00004e10| 20 6d 65 6e 75 20 61 6c | 72 65 61 64 79 20 65 78 | menu al|ready ex|
|00004e20| 69 73 74 73 2c 20 69 74 | 20 77 69 6c 6c 20 6e 6f |ists, it| will no|
|00004e30| 74 20 62 65 20 63 72 65 | 61 74 65 64 0a 34 31 30 |t be cre|ated.410|
|00004e40| 52 45 4d 20 61 67 61 69 | 6e 2e 0a 34 32 30 0a 34 |REM agai|n..420.4|
|00004e50| 33 30 53 59 53 20 22 48 | 6f 75 72 67 6c 61 73 73 |30SYS "H|ourglass|
|00004e60| 5f 4f 6e 22 0a 34 34 30 | 53 59 53 20 22 46 6f 6e |_On".440|SYS "Fon|
|00004e70| 74 4d 65 6e 75 5f 43 72 | 65 61 74 65 22 0a 34 35 |tMenu_Cr|eate".45|
|00004e80| 30 53 59 53 20 22 48 6f | 75 72 67 6c 61 73 73 5f |0SYS "Ho|urglass_|
|00004e90| 4f 66 66 22 0a 34 36 30 | 0a 34 37 30 66 6f 6e 74 |Off".460|.470font|
|00004ea0| 24 3d 22 53 79 73 74 65 | 6d 20 46 6f 6e 74 22 3a |$="Syste|m Font":|
|00004eb0| 63 75 72 66 25 3d 2d 31 | 3a 50 52 4f 43 76 61 72 |curf%=-1|:PROCvar|
|00004ec0| 73 0a 34 38 30 48 6f 74 | 4b 65 79 25 3d 2d 33 20 |s.480Hot|Key%=-3 |
|00004ed0| 20 3a 52 45 4d 20 41 4c | 54 20 6b 65 79 20 28 4e | :REM AL|T key (N|
|00004ee0| 6f 74 65 20 74 68 61 74 | 20 74 68 69 73 20 69 73 |ote that| this is|
|00004ef0| 20 61 20 63 68 61 6e 67 | 65 20 66 72 6f 6d 20 74 | a chang|e from t|
|00004f00| 68 65 20 6f 72 69 67 69 | 6e 61 6c 29 0a 34 39 30 |he origi|nal).490|
|00004f10| 24 54 41 53 4b 3d 22 54 | 41 53 4b 22 3a 53 59 53 |$TASK="T|ASK":SYS|
|00004f20| 22 57 69 6d 70 5f 49 6e | 69 74 69 61 6c 69 73 65 |"Wimp_In|itialise|
|00004f30| 22 2c 32 30 30 2c 21 54 | 41 53 4b 2c 22 43 68 61 |",200,!T|ASK,"Cha|
|00004f40| 72 61 63 74 65 72 73 22 | 20 54 4f 20 2c 74 61 73 |racters"| TO ,tas|
|00004f50| 6b 68 61 6e 64 6c 65 25 | 0a 35 30 30 50 52 4f 43 |khandle%|.500PROC|
|00004f60| 74 65 6d 70 6c 61 74 65 | 73 0a 35 30 32 0a 35 30 |template|s.502.50|
|00004f70| 34 44 49 4d 20 71 31 25 | 20 32 35 36 3a 73 70 72 |4DIM q1%| 256:spr|
|00004f80| 69 74 65 24 3d 22 21 69 | 6d 70 63 68 61 72 73 22 |ite$="!i|mpchars"|
|00004f90| 3a 69 63 25 3d 46 4e 69 | 63 6f 6e 5f 62 61 72 0a |:ic%=FNi|con_bar.|
|00004fa0| 35 31 30 0a 35 32 30 50 | 6f 6c 6c 46 6c 61 67 73 |510.520P|ollFlags|
|00004fb0| 3d 4e 4f 54 28 28 31 3c | 3c 31 29 2b 28 31 3c 3c |=NOT((1<|<1)+(1<<|
|00004fc0| 32 29 2b 28 31 3c 3c 33 | 29 2b 28 31 3c 3c 34 29 |2)+(1<<3|)+(1<<4)|
|00004fd0| 2b 28 31 3c 3c 35 29 2b | 28 31 3c 3c 36 29 2b 28 |+(1<<5)+|(1<<6)+(|
|00004fe0| 31 3c 3c 31 37 29 2b 28 | 31 3c 3c 31 38 29 29 0a |1<<17)+(|1<<18)).|
|00004ff0| 35 33 30 62 61 63 6b 67 | 72 6f 75 6e 64 6b 65 79 |530backg|roundkey|
|00005000| 25 3d 30 0a 35 34 30 0a | 35 35 30 52 45 50 45 41 |%=0.540.|550REPEA|
|00005010| 54 0a 35 36 30 20 53 59 | 53 20 50 6f 6c 6c 25 2c |T.560 SY|S Poll%,|
|00005020| 50 6f 6c 6c 46 6c 61 67 | 73 2c 62 6c 6f 63 6b 25 |PollFlag|s,block%|
|00005030| 20 54 4f 20 72 65 61 73 | 6f 6e 0a 35 37 30 20 43 | TO reas|on.570 C|
|00005040| 41 53 45 20 72 65 61 73 | 6f 6e 20 4f 46 0a 35 38 |ASE reas|on OF.58|
|00005050| 30 20 57 48 45 4e 20 30 | 3a 20 50 52 4f 43 43 68 |0 WHEN 0|: PROCCh|
|00005060| 65 63 6b 48 6f 74 4b 65 | 79 3a 49 46 20 62 61 63 |eckHotKe|y:IF bac|
|00005070| 6b 67 72 6f 75 6e 64 6b | 65 79 25 20 50 52 4f 43 |kgroundk|ey% PROC|
|00005080| 74 69 64 79 75 70 28 62 | 61 63 6b 67 72 6f 75 6e |tidyup(b|ackgroun|
|00005090| 64 6b 65 79 25 29 0a 35 | 39 30 20 57 48 45 4e 20 |dkey%).5|90 WHEN |
|000050a0| 31 3a 20 50 52 4f 43 52 | 65 64 72 61 77 57 69 6e |1: PROCR|edrawWin|
|000050b0| 64 6f 77 0a 36 30 30 20 | 57 48 45 4e 20 32 3a 20 |dow.600 |WHEN 2: |
|000050c0| 50 52 4f 43 4f 70 65 6e | 57 69 6e 64 6f 77 0a 36 |PROCOpen|Window.6|
|000050d0| 31 30 20 57 48 45 4e 20 | 33 3a 20 50 52 4f 43 43 |10 WHEN |3: PROCC|
|000050e0| 6c 6f 73 65 57 69 6e 64 | 6f 77 0a 36 32 30 20 57 |loseWind|ow.620 W|
|000050f0| 48 45 4e 20 34 3a 20 50 | 52 4f 43 50 6f 69 6e 74 |HEN 4: P|ROCPoint|
|00005100| 65 72 4c 65 61 76 69 6e | 67 0a 36 33 30 20 57 48 |erLeavin|g.630 WH|
|00005110| 45 4e 20 35 3a 20 50 52 | 4f 43 50 6f 69 6e 74 65 |EN 5: PR|OCPointe|
|00005120| 72 45 6e 74 65 72 69 6e | 67 0a 36 34 30 20 57 48 |rEnterin|g.640 WH|
|00005130| 45 4e 20 36 3a 20 50 52 | 4f 43 43 68 65 63 6b 4d |EN 6: PR|OCCheckM|
|00005140| 6f 75 73 65 28 21 62 6c | 6f 63 6b 25 2c 62 6c 6f |ouse(!bl|ock%,blo|
|00005150| 63 6b 25 21 34 2c 62 6c | 6f 63 6b 25 21 38 2c 62 |ck%!4,bl|ock%!8,b|
|00005160| 6c 6f 63 6b 25 21 31 32 | 2c 62 6c 6f 63 6b 25 21 |lock%!12|,block%!|
|00005170| 31 36 2c 62 6c 6f 63 6b | 25 21 32 30 29 0a 36 35 |16,block|%!20).65|
|00005180| 30 20 57 48 45 4e 20 39 | 3a 20 50 52 4f 43 6d 65 |0 WHEN 9|: PROCme|
|00005190| 6e 75 5f 73 65 6c 65 63 | 74 0a 36 36 30 20 57 48 |nu_selec|t.660 WH|
|000051a0| 45 4e 20 31 37 2c 31 38 | 3a 20 50 52 4f 43 4d 65 |EN 17,18|: PROCMe|
|000051b0| 73 73 61 67 65 0a 36 37 | 30 20 45 4e 44 43 41 53 |ssage.67|0 ENDCAS|
|000051c0| 45 0a 36 38 30 55 4e 54 | 49 4c 20 46 41 4c 53 45 |E.680UNT|IL FALSE|
|000051d0| 0a 36 39 30 45 4e 44 0a | 37 30 30 3a 0a 37 31 30 |.690END.|700:.710|
|000051e0| 44 45 46 20 50 52 4f 43 | 43 68 65 63 6b 48 6f 74 |DEF PROC|CheckHot|
|000051f0| 4b 65 79 0a 37 32 30 49 | 73 44 6f 77 6e 25 3d 49 |Key.720I|sDown%=I|
|00005200| 4e 4b 45 59 20 48 6f 74 | 4b 65 79 25 0a 37 33 30 |NKEY Hot|Key%.730|
|00005210| 49 46 20 49 73 44 6f 77 | 6e 25 20 41 4e 44 20 4e |IF IsDow|n% AND N|
|00005220| 4f 54 20 57 61 73 44 6f | 77 6e 25 20 54 48 45 4e |OT WasDo|wn% THEN|
|00005230| 0a 37 34 30 20 53 59 53 | 20 47 65 74 50 2c 2c 62 |.740 SYS| GetP,,b|
|00005240| 6c 6f 63 6b 25 0a 37 35 | 30 20 50 52 4f 43 44 6f |lock%.75|0 PROCDo|
|00005250| 43 68 61 72 0a 37 36 30 | 45 4e 44 49 46 0a 37 37 |Char.760|ENDIF.77|
|00005260| 30 57 61 73 44 6f 77 6e | 25 3d 49 73 44 6f 77 6e |0WasDown|%=IsDown|
|00005270| 25 0a 37 38 30 45 4e 44 | 50 52 4f 43 0a 37 39 30 |%.780END|PROC.790|
|00005280| 3a 0a 38 30 30 44 45 46 | 20 50 52 4f 43 72 65 73 |:.800DEF| PROCres|
|00005290| 65 74 73 69 7a 65 20 3a | 4c 4f 43 41 4c 20 58 25 |etsize :|LOCAL X%|
|000052a0| 2c 59 25 0a 38 31 30 52 | 45 4d 20 2a 2a 2a 2a 20 |,Y%.810R|EM **** |
|000052b0| 43 61 6c 6c 65 64 20 77 | 68 65 6e 20 75 73 65 72 |Called w|hen user|
|000052c0| 20 68 61 73 20 72 65 73 | 69 7a 65 64 20 77 69 6e | has res|ized win|
|000052d0| 64 6f 77 20 61 6e 64 20 | 74 68 65 6e 20 63 6c 69 |dow and |then cli|
|000052e0| 63 6b 73 20 6f 6e 0a 38 | 32 30 52 45 4d 20 20 20 |cks on.8|20REM |
|000052f0| 20 20 20 27 52 65 73 69 | 7a 65 27 20 6f 72 20 77 | 'Resi|ze' or w|
|00005300| 68 61 74 65 76 65 72 20 | 49 20 65 76 65 6e 74 75 |hatever |I eventu|
|00005310| 61 6c 6c 79 20 63 61 6c | 6c 65 64 20 69 74 20 6f |ally cal|led it o|
|00005320| 70 74 69 6f 6e 0a 38 33 | 30 52 45 4d 20 2d 52 65 |ption.83|0REM -Re|
|00005330| 2d 63 61 6c 63 75 6c 61 | 74 65 73 20 43 68 61 72 |-calcula|tes Char|
|00005340| 61 63 74 65 72 20 73 70 | 61 63 69 6e 67 20 61 6e |acter sp|acing an|
|00005350| 64 20 73 69 7a 65 20 63 | 6f 6e 73 74 61 6e 74 73 |d size c|onstants|
|00005360| 2c 20 66 6f 72 63 65 73 | 20 72 65 64 72 61 77 0a |, forces| redraw.|
|00005370| 38 34 30 0a 38 35 30 21 | 62 6c 6f 63 6b 25 3d 57 |840.850!|block%=W|
|00005380| 69 6e 64 6f 77 48 61 6e | 64 6c 65 0a 38 36 30 53 |indowHan|dle.860S|
|00005390| 59 53 20 22 57 69 6d 70 | 5f 47 65 74 57 69 6e 64 |YS "Wimp|_GetWind|
|000053a0| 6f 77 49 6e 66 6f 22 2c | 2c 62 6c 6f 63 6b 25 0a |owInfo",|,block%.|
|000053b0| 38 37 30 58 25 3d 62 6c | 6f 63 6b 25 21 31 32 2d |870X%=bl|ock%!12-|
|000053c0| 62 6c 6f 63 6b 25 21 34 | 20 20 20 20 20 20 20 20 |block%!4| |
|000053d0| 20 20 20 20 20 20 20 20 | 3a 52 45 4d 20 47 65 74 | |:REM Get|
|000053e0| 20 58 2c 59 20 73 69 7a | 65 20 6f 66 20 77 69 6e | X,Y siz|e of win|
|000053f0| 64 6f 77 0a 38 38 30 59 | 25 3d 28 62 6c 6f 63 6b |dow.880Y|%=(block|
|00005400| 25 21 31 36 2d 62 6c 6f | 63 6b 25 21 38 29 3c 3c |%!16-blo|ck%!8)<<|
|00005410| 59 45 49 47 25 0a 38 39 | 30 0a 39 30 30 62 6c 6f |YEIG%.89|0.900blo|
|00005420| 63 6b 25 21 32 30 3d 30 | 3a 62 6c 6f 63 6b 25 21 |ck%!20=0|:block%!|
|00005430| 32 34 3d 30 0a 39 31 30 | 53 59 53 20 22 57 69 6d |24=0.910|SYS "Wim|
|00005440| 70 5f 4f 70 65 6e 57 69 | 6e 64 6f 77 22 2c 2c 62 |p_OpenWi|ndow",,b|
|00005450| 6c 6f 63 6b 25 20 20 20 | 20 3a 52 45 4d 20 52 65 |lock% | :REM Re|
|00005460| 73 65 74 20 73 63 72 6f | 6c 6c 20 6f 66 66 73 65 |set scro|ll offse|
|00005470| 74 73 0a 39 32 30 0a 39 | 33 30 4d 58 53 50 25 3d |ts.920.9|30MXSP%=|
|00005480| 41 42 53 28 58 25 2d 4c | 4d 25 2d 52 4d 25 29 3e |ABS(X%-L|M%-RM%)>|
|00005490| 3e 35 20 20 20 20 20 3a | 52 45 4d 20 47 65 74 20 |>5 :|REM Get |
|000054a0| 6e 65 77 20 73 70 61 63 | 69 6e 67 20 63 6f 6e 73 |new spac|ing cons|
|000054b0| 74 73 0a 39 34 30 4d 59 | 53 50 25 3d 41 42 53 28 |ts.940MY|SP%=ABS(|
|000054c0| 59 25 2d 54 4d 25 2d 42 | 4d 25 29 3e 3e 35 0a 39 |Y%-TM%-B|M%)>>5.9|
|000054d0| 35 30 66 73 31 25 3d 4d | 58 53 50 25 2a 28 31 31 |50fs1%=M|XSP%*(11|
|000054e0| 2f 32 34 29 20 20 20 20 | 20 20 20 20 20 20 20 3a |/24) | :|
|000054f0| 52 45 4d 20 43 61 6c 63 | 20 6e 65 77 20 66 6f 6e |REM Calc| new fon|
|00005500| 74 20 73 69 7a 65 20 63 | 6f 6e 73 74 73 0a 39 36 |t size c|onsts.96|
|00005510| 30 66 73 32 25 3d 4d 59 | 53 50 25 2a 28 31 35 2f |0fs2%=MY|SP%*(15/|
|00005520| 34 34 29 0a 39 37 30 0a | 39 38 30 49 46 20 66 73 |44).970.|980IF fs|
|00005530| 31 25 3c 31 20 66 73 31 | 25 3d 31 0a 39 39 30 49 |1%<1 fs1|%=1.990I|
|00005540| 46 20 66 73 32 25 3c 31 | 20 66 73 32 25 3d 31 0a |F fs2%<1| fs2%=1.|
|00005550| 31 30 30 30 0a 31 30 31 | 30 49 46 63 75 72 66 25 |1000.101|0IFcurf%|
|00005560| 3e 2d 31 20 41 4e 44 20 | 66 6f 6e 74 24 3c 3e 22 |>-1 AND |font$<>"|
|00005570| 53 79 73 74 65 6d 20 46 | 6f 6e 74 22 20 54 48 45 |System F|ont" THE|
|00005580| 4e 0a 31 30 32 30 20 53 | 59 53 4c 6f 73 65 46 6f |N.1020 S|YSLoseFo|
|00005590| 6e 74 2c 63 75 72 66 25 | 20 20 20 20 20 20 20 20 |nt,curf%| |
|000055a0| 20 20 20 3a 52 45 4d 20 | 45 6e 73 75 72 65 20 63 | :REM |Ensure c|
|000055b0| 6f 72 72 65 63 74 20 66 | 6f 6e 74 20 73 69 7a 65 |orrect f|ont size|
|000055c0| 20 6c 6f 61 64 65 64 0a | 31 30 33 30 20 53 59 53 | loaded.|1030 SYS|
|000055d0| 46 69 6e 64 46 6f 6e 74 | 2c 2c 66 6f 6e 74 24 2c |FindFont|,,font$,|
|000055e0| 66 73 31 25 2a 31 36 2c | 66 73 32 25 2a 31 36 20 |fs1%*16,|fs2%*16 |
|000055f0| 54 4f 20 63 75 72 66 25 | 0a 31 30 34 30 45 4e 44 |TO curf%|.1040END|
|00005600| 49 46 0a 31 30 35 30 0a | 31 30 36 30 53 59 53 20 |IF.1050.|1060SYS |
|00005610| 53 63 72 65 65 6e 2c 57 | 69 6e 64 6f 77 48 61 6e |Screen,W|indowHan|
|00005620| 64 6c 65 2c 30 2c 2d 32 | 30 34 38 2c 32 30 34 38 |dle,0,-2|048,2048|
|00005630| 2c 30 20 3a 52 45 4d 20 | 46 6f 72 63 65 20 72 65 |,0 :REM |Force re|
|00005640| 64 72 61 77 20 6f 66 20 | 77 69 6e 64 6f 77 0a 31 |draw of |window.1|
|00005650| 30 37 30 45 4e 44 50 52 | 4f 43 0a 31 30 38 30 3a |070ENDPR|OC.1080:|
|00005660| 0a 31 30 39 30 44 45 46 | 20 50 52 4f 43 52 65 64 |.1090DEF| PROCRed|
|00005670| 72 61 77 57 69 6e 64 6f | 77 0a 31 31 30 30 53 59 |rawWindo|w.1100SY|
|00005680| 53 20 52 65 64 72 61 77 | 57 2c 2c 62 6c 6f 63 6b |S Redraw|W,,block|
|00005690| 25 20 54 4f 20 66 6c 61 | 67 25 0a 31 31 31 30 49 |% TO fla|g%.1110I|
|000056a0| 46 63 75 72 66 25 3e 2d | 31 20 54 48 45 4e 0a 31 |Fcurf%>-|1 THEN.1|
|000056b0| 31 32 30 20 53 59 53 20 | 53 65 74 46 6f 6e 74 2c |120 SYS |SetFont,|
|000056c0| 63 75 72 66 25 3a 53 59 | 53 20 53 65 74 46 6f 6e |curf%:SY|S SetFon|
|000056d0| 74 43 2c 2c 30 2c 37 0a | 31 31 33 30 45 4e 44 49 |tC,,0,7.|1130ENDI|
|000056e0| 46 0a 31 31 34 30 57 48 | 49 4c 45 20 66 6c 61 67 |F.1140WH|ILE flag|
|000056f0| 25 0a 31 31 35 30 20 53 | 74 61 72 74 58 25 3d 62 |%.1150 S|tartX%=b|
|00005700| 6c 6f 63 6b 25 21 34 2b | 4c 4d 25 2d 62 6c 6f 63 |lock%!4+|LM%-bloc|
|00005710| 6b 25 21 32 30 3a 53 74 | 61 72 74 59 25 3d 62 6c |k%!20:St|artY%=bl|
|00005720| 6f 63 6b 25 21 31 36 2d | 54 4d 25 2d 62 6c 6f 63 |ock%!16-|TM%-bloc|
|00005730| 6b 25 21 32 34 0a 31 31 | 36 30 20 49 46 63 75 72 |k%!24.11|60 IFcur|
|00005740| 66 25 3e 2d 31 20 54 48 | 45 4e 0a 31 31 37 30 20 |f%>-1 TH|EN.1170 |
|00005750| 20 6f 78 30 25 3d 28 62 | 6c 6f 63 6b 25 21 32 38 | ox0%=(b|lock%!28|
|00005760| 2d 53 74 61 72 74 58 25 | 29 44 49 56 4d 58 53 50 |-StartX%|)DIVMXSP|
|00005770| 25 3a 49 46 6f 78 30 25 | 3e 33 31 20 6f 78 30 25 |%:IFox0%|>31 ox0%|
|00005780| 3d 33 31 0a 31 31 38 30 | 20 20 49 46 20 6f 78 30 |=31.1180| IF ox0|
|00005790| 25 3c 30 20 6f 78 30 25 | 3d 30 0a 31 31 39 30 20 |%<0 ox0%|=0.1190 |
|000057a0| 20 6f 78 31 25 3d 28 62 | 6c 6f 63 6b 25 21 33 36 | ox1%=(b|lock%!36|
|000057b0| 2d 53 74 61 72 74 58 25 | 29 44 49 56 4d 58 53 50 |-StartX%|)DIVMXSP|
|000057c0| 25 3a 49 46 6f 78 31 25 | 3e 33 31 20 6f 78 31 25 |%:IFox1%|>31 ox1%|
|000057d0| 3d 33 31 0a 31 32 30 30 | 20 20 49 46 20 6f 78 31 |=31.1200| IF ox1|
|000057e0| 25 3c 30 20 6f 78 31 25 | 3d 30 0a 31 32 31 30 20 |%<0 ox1%|=0.1210 |
|000057f0| 20 46 4f 52 20 59 25 3d | 31 20 54 4f 20 37 3a 43 | FOR Y%=|1 TO 7:C|
|00005800| 59 25 3d 53 74 61 72 74 | 59 25 2d 32 34 2d 59 25 |Y%=Start|Y%-24-Y%|
|00005810| 2a 4d 59 53 50 25 0a 31 | 32 32 30 20 20 20 49 46 |*MYSP%.1|220 IF|
|00005820| 20 43 59 25 3c 62 6c 6f | 63 6b 25 21 34 30 2b 4d | CY%<blo|ck%!40+M|
|00005830| 59 53 50 25 20 41 4e 44 | 20 43 59 25 2b 4d 59 53 |YSP% AND| CY%+MYS|
|00005840| 50 25 3e 3d 62 6c 6f 63 | 6b 25 21 33 32 20 54 48 |P%>=bloc|k%!32 TH|
|00005850| 45 4e 0a 31 32 33 30 20 | 20 20 20 46 4f 52 58 25 |EN.1230 | FORX%|
|00005860| 3d 6f 78 30 25 54 4f 6f | 78 31 25 3a 53 59 53 20 |=ox0%TOo|x1%:SYS |
|00005870| 50 61 69 6e 74 25 2c 2c | 43 48 52 24 28 59 25 2a |Paint%,,|CHR$(Y%*|
|00005880| 33 32 2b 58 25 29 2c 26 | 31 34 2c 53 74 61 72 74 |32+X%),&|14,Start|
|00005890| 58 25 2b 58 25 2a 4d 58 | 53 50 25 2c 43 59 25 3a |X%+X%*MX|SP%,CY%:|
|000058a0| 4e 45 58 54 0a 31 32 34 | 30 20 20 20 45 4e 44 49 |NEXT.124|0 ENDI|
|000058b0| 46 0a 31 32 35 30 20 20 | 4e 45 58 54 0a 31 32 36 |F.1250 |NEXT.126|
|000058c0| 30 20 45 4c 53 45 3a 20 | 20 52 45 4d 20 53 79 73 |0 ELSE: | REM Sys|
|000058d0| 74 65 6d 20 66 6f 6e 74 | 0a 31 32 37 30 0a 31 32 |tem font|.1270.12|
|000058e0| 38 30 20 56 44 55 32 33 | 2c 31 37 2c 37 2c 34 2c |80 VDU23|,17,7,4,|
|000058f0| 4d 58 53 50 25 3e 3e 58 | 45 49 47 25 3b 4d 59 53 |MXSP%>>X|EIG%;MYS|
|00005900| 50 25 3e 3e 59 45 49 47 | 25 3b 30 3b 0a 31 32 39 |P%>>YEIG|%;0;.129|
|00005910| 30 20 46 4f 52 20 59 25 | 3d 31 20 54 4f 20 37 3a |0 FOR Y%|=1 TO 7:|
|00005920| 43 59 25 3d 53 74 61 72 | 74 59 25 2d 59 25 2a 4d |CY%=Star|tY%-Y%*M|
|00005930| 59 53 50 25 0a 31 33 30 | 30 20 20 49 46 20 43 59 |YSP%.130|0 IF CY|
|00005940| 25 3c 62 6c 6f 63 6b 25 | 21 34 30 2b 33 31 20 41 |%<block%|!40+31 A|
|00005950| 4e 44 20 43 59 25 3e 3d | 62 6c 6f 63 6b 25 21 33 |ND CY%>=|block%!3|
|00005960| 32 20 54 48 45 4e 0a 31 | 33 31 30 20 20 20 4d 4f |2 THEN.1|310 MO|
|00005970| 56 45 20 53 74 61 72 74 | 58 25 2c 43 59 25 3a 50 |VE Start|X%,CY%:P|
|00005980| 52 49 4e 54 20 43 24 28 | 59 25 29 3b 3a 49 46 20 |RINT C$(|Y%);:IF |
|00005990| 59 25 3d 30 20 50 52 49 | 4e 54 20 43 24 28 38 29 |Y%=0 PRI|NT C$(8)|
|000059a0| 3b 0a 31 33 32 30 20 20 | 45 4e 44 49 46 0a 31 33 |;.1320 |ENDIF.13|
|000059b0| 33 30 20 4e 45 58 54 0a | 31 33 34 30 20 56 44 55 |30 NEXT.|1340 VDU|
|000059c0| 32 33 2c 31 37 2c 37 2c | 34 2c 38 3b 38 3b 30 3b |23,17,7,|4,8;8;0;|
|000059d0| 0a 31 33 35 30 20 45 4e | 44 49 46 0a 31 33 36 30 |.1350 EN|DIF.1360|
|000059e0| 20 53 59 53 20 47 65 74 | 52 25 2c 2c 62 6c 6f 63 | SYS Get|R%,,bloc|
|000059f0| 6b 25 20 54 4f 20 66 6c | 61 67 25 0a 31 33 37 30 |k% TO fl|ag%.1370|
|00005a00| 45 4e 44 57 48 49 4c 45 | 0a 31 33 38 30 49 46 20 |ENDWHILE|.1380IF |
|00005a10| 63 75 72 66 25 3e 2d 31 | 20 54 48 45 4e 0a 31 33 |curf%>-1| THEN.13|
|00005a20| 39 30 45 4c 53 45 0a 31 | 34 30 30 20 56 44 55 32 |90ELSE.1|400 VDU2|
|00005a30| 33 2c 31 37 2c 37 2c 34 | 2c 31 36 3e 3e 58 45 49 |3,17,7,4|,16>>XEI|
|00005a40| 47 25 3b 33 32 3e 3e 59 | 45 49 47 25 3b 30 3b 0a |G%;32>>Y|EIG%;0;.|
|00005a50| 31 34 31 30 45 4e 44 49 | 46 0a 31 34 32 30 45 4e |1410ENDI|F.1420EN|
|00005a60| 44 50 52 4f 43 0a 31 34 | 33 30 3a 0a 31 34 34 30 |DPROC.14|30:.1440|
|00005a70| 44 45 46 20 50 52 4f 43 | 4f 70 65 6e 57 69 6e 64 |DEF PROC|OpenWind|
|00005a80| 6f 77 0a 31 34 35 30 53 | 59 53 22 57 69 6d 70 5f |ow.1450S|YS"Wimp_|
|00005a90| 4f 70 65 6e 57 69 6e 64 | 6f 77 22 2c 2c 62 6c 6f |OpenWind|ow",,blo|
|00005aa0| 63 6b 25 0a 31 34 36 30 | 45 4e 44 50 52 4f 43 0a |ck%.1460|ENDPROC.|
|00005ab0| 31 34 37 30 3a 0a 31 34 | 38 30 44 45 46 20 50 52 |1470:.14|80DEF PR|
|00005ac0| 4f 43 43 6c 6f 73 65 57 | 69 6e 64 6f 77 0a 31 34 |OCCloseW|indow.14|
|00005ad0| 39 30 21 62 6c 6f 63 6b | 25 3d 57 69 6e 64 6f 77 |90!block|%=Window|
|00005ae0| 48 61 6e 64 6c 65 3a 53 | 59 53 22 57 69 6d 70 5f |Handle:S|YS"Wimp_|
|00005af0| 43 6c 6f 73 65 57 69 6e | 64 6f 77 22 2c 2c 62 6c |CloseWin|dow",,bl|
|00005b00| 6f 63 6b 25 0a 31 35 33 | 30 45 4e 44 50 52 4f 43 |ock%.153|0ENDPROC|
|00005b10| 0a 31 35 34 30 3a 0a 31 | 35 35 30 44 45 46 20 50 |.1540:.1|550DEF P|
|00005b20| 52 4f 43 50 6f 69 6e 74 | 65 72 4c 65 61 76 69 6e |ROCPoint|erLeavin|
|00005b30| 67 0a 31 35 36 30 50 6f | 6c 6c 46 6c 61 67 73 3d |g.1560Po|llFlags=|
|00005b40| 50 6f 6c 6c 46 6c 61 67 | 73 20 4f 52 20 28 31 3c |PollFlag|s OR (1<|
|00005b50| 3c 30 29 0a 31 35 37 30 | 45 4e 44 50 52 4f 43 0a |<0).1570|ENDPROC.|
|00005b60| 31 35 38 30 3a 0a 31 35 | 39 30 44 45 46 20 50 52 |1580:.15|90DEF PR|
|00005b70| 4f 43 50 6f 69 6e 74 65 | 72 45 6e 74 65 72 69 6e |OCPointe|rEnterin|
|00005b80| 67 0a 31 36 30 30 50 6f | 6c 6c 46 6c 61 67 73 3d |g.1600Po|llFlags=|
|00005b90| 50 6f 6c 6c 46 6c 61 67 | 73 20 41 4e 44 20 4e 4f |PollFlag|s AND NO|
|00005ba0| 54 20 28 31 3c 3c 30 29 | 0a 31 36 31 30 57 61 73 |T (1<<0)|.1610Was|
|00005bb0| 44 6f 77 6e 25 3d 49 4e | 4b 45 59 20 48 6f 74 4b |Down%=IN|KEY HotK|
|00005bc0| 65 79 25 0a 31 36 32 30 | 45 4e 44 50 52 4f 43 0a |ey%.1620|ENDPROC.|
|00005bd0| 31 36 33 30 3a 0a 31 36 | 34 30 44 45 46 20 50 52 |1630:.16|40DEF PR|
|00005be0| 4f 43 4d 65 73 73 61 67 | 65 0a 31 36 35 30 49 46 |OCMessag|e.1650IF|
|00005bf0| 20 62 6c 6f 63 6b 25 21 | 34 3c 3e 74 61 73 6b 68 | block%!|4<>taskh|
|00005c00| 61 6e 64 6c 65 25 20 54 | 48 45 4e 0a 31 36 36 30 |andle% T|HEN.1660|
|00005c10| 43 41 53 45 20 62 6c 6f | 63 6b 25 21 31 36 20 4f |CASE blo|ck%!16 O|
|00005c20| 46 0a 31 36 37 30 20 20 | 57 48 45 4e 20 30 20 3a |F.1670 |WHEN 0 :|
|00005c30| 50 52 4f 43 73 68 75 74 | 64 6f 77 6e 3a 45 4e 44 |PROCshut|down:END|
|00005c40| 0a 31 36 38 30 20 20 57 | 48 45 4e 20 31 20 3a 52 |.1680 W|HEN 1 :R|
|00005c50| 45 4d 20 20 50 52 4f 43 | 73 65 6e 64 64 61 74 61 |EM PROC|senddata|
|00005c60| 73 61 76 65 61 63 6b 0a | 31 36 39 30 20 20 57 48 |saveack.|1690 WH|
|00005c70| 45 4e 20 32 20 3a 50 52 | 4f 43 64 61 74 61 73 61 |EN 2 :PR|OCdatasa|
|00005c80| 76 65 0a 31 37 30 30 20 | 20 57 48 45 4e 20 34 20 |ve.1700 | WHEN 4 |
|00005c90| 3a 50 52 4f 43 66 6f 6c | 6c 6f 77 75 70 3a 52 45 |:PROCfol|lowup:RE|
|00005ca0| 4d 20 4c 6f 61 64 65 64 | 20 69 6e 74 6f 20 6f 74 |M Loaded| into ot|
|00005cb0| 68 65 72 20 74 61 73 6b | 20 4f 4b 0a 31 37 31 30 |her task| OK.1710|
|00005cc0| 20 20 57 48 45 4e 20 26 | 34 30 30 43 31 3a 50 52 | WHEN &|400C1:PR|
|00005cd0| 4f 43 52 65 61 64 4d 6f | 64 65 56 61 72 73 0a 31 |OCReadMo|deVars.1|
|00005ce0| 37 32 30 20 20 57 48 45 | 4e 20 26 35 30 32 20 20 |720 WHE|N &502 |
|00005cf0| 3a 50 52 4f 43 44 6f 48 | 65 6c 70 0a 31 37 33 30 |:PROCDoH|elp.1730|
|00005d00| 45 4e 44 43 41 53 45 0a | 31 37 34 30 45 4e 44 49 |ENDCASE.|1740ENDI|
|00005d10| 46 0a 31 37 35 30 45 4e | 44 50 52 4f 43 0a 31 37 |F.1750EN|DPROC.17|
|00005d20| 36 30 3a 0a 31 37 37 30 | 44 45 46 20 46 4e 43 48 |60:.1770|DEF FNCH|
|00005d30| 28 58 25 2c 59 25 29 0a | 31 37 38 30 43 25 3d 58 |(X%,Y%).|1780C%=X|
|00005d40| 25 2b 59 25 2a 33 32 0a | 31 37 39 30 49 46 20 43 |%+Y%*32.|1790IF C|
|00005d50| 25 3c 33 32 20 4f 52 20 | 43 25 3d 31 32 37 20 54 |%<32 OR |C%=127 T|
|00005d60| 48 45 4e 0a 31 38 30 30 | 20 49 46 20 43 25 3d 31 |HEN.1800| IF C%=1|
|00005d70| 32 37 20 54 48 45 4e 20 | 43 25 3d 41 53 43 22 3f |27 THEN |C%=ASC"?|
|00005d80| 22 20 45 4c 53 45 20 43 | 25 3d 43 25 20 4f 52 20 |" ELSE C|%=C% OR |
|00005d90| 41 53 43 22 40 22 0a 31 | 38 31 30 20 43 68 61 72 |ASC"@".1|810 Char|
|00005da0| 44 65 66 3f 30 3d 43 25 | 3a 53 59 53 22 4f 53 5f |Def?0=C%|:SYS"OS_|
|00005db0| 57 6f 72 64 22 2c 31 30 | 2c 43 68 61 72 44 65 66 |Word",10|,CharDef|
|00005dc0| 0a 31 38 32 30 20 43 24 | 3d 43 48 52 24 32 33 2b |.1820 C$|=CHR$23+|
|00005dd0| 43 48 52 24 33 32 0a 31 | 38 33 30 20 46 4f 52 20 |CHR$32.1|830 FOR |
|00005de0| 49 25 3d 31 20 54 4f 20 | 38 0a 31 38 34 30 20 20 |I%=1 TO |8.1840 |
|00005df0| 43 24 2b 3d 43 48 52 24 | 28 43 68 61 72 44 65 66 |C$+=CHR$|(CharDef|
|00005e00| 3f 49 25 20 45 4f 52 20 | 26 46 46 29 0a 31 38 35 |?I% EOR |&FF).185|
|00005e10| 30 20 4e 45 58 54 0a 31 | 38 36 30 20 43 24 2b 3d |0 NEXT.1|860 C$+=|
|00005e20| 22 20 22 0a 31 38 37 30 | 45 4c 53 45 0a 31 38 38 |" ".1870|ELSE.188|
|00005e30| 30 20 43 24 3d 43 48 52 | 24 43 25 0a 31 38 39 30 |0 C$=CHR|$C%.1890|
|00005e40| 45 4e 44 49 46 0a 31 39 | 30 30 3d 43 24 0a 31 39 |ENDIF.19|00=C$.19|
|00005e50| 31 30 3a 0a 31 39 32 30 | 44 45 46 20 50 52 4f 43 |10:.1920|DEF PROC|
|00005e60| 52 65 61 64 4d 6f 64 65 | 56 61 72 73 0a 31 39 33 |ReadMode|Vars.193|
|00005e70| 30 53 59 53 22 4f 53 5f | 52 65 61 64 56 64 75 56 |0SYS"OS_|ReadVduV|
|00005e80| 61 72 69 61 62 6c 65 73 | 22 2c 49 6e 70 75 74 56 |ariables|",InputV|
|00005e90| 61 72 73 2c 4f 75 74 70 | 75 74 56 61 72 73 0a 31 |ars,Outp|utVars.1|
|00005ea0| 39 34 30 58 45 49 47 25 | 3d 4f 75 74 70 75 74 56 |940XEIG%|=OutputV|
|00005eb0| 61 72 73 21 30 3a 59 45 | 49 47 25 3d 4f 75 74 70 |ars!0:YE|IG%=Outp|
|00005ec0| 75 74 56 61 72 73 21 34 | 0a 31 39 35 30 49 46 63 |utVars!4|.1950IFc|
|00005ed0| 75 72 66 25 3e 2d 31 20 | 54 48 45 4e 0a 31 39 36 |urf%>-1 |THEN.196|
|00005ee0| 30 20 53 59 53 4c 6f 73 | 65 46 6f 6e 74 2c 63 75 |0 SYSLos|eFont,cu|
|00005ef0| 72 66 25 0a 31 39 37 30 | 20 53 59 53 46 69 6e 64 |rf%.1970| SYSFind|
|00005f00| 46 6f 6e 74 2c 2c 66 6f | 6e 74 24 2c 66 73 31 25 |Font,,fo|nt$,fs1%|
|00005f10| 2a 31 36 2c 66 73 32 25 | 2a 31 36 20 54 4f 20 63 |*16,fs2%|*16 TO c|
|00005f20| 75 72 66 25 0a 31 39 38 | 30 45 4e 44 49 46 0a 31 |urf%.198|0ENDIF.1|
|00005f30| 39 39 30 45 4e 44 50 52 | 4f 43 0a 32 30 30 30 3a |990ENDPR|OC.2000:|
|00005f40| 0a 32 30 31 30 44 45 46 | 20 50 52 4f 43 43 68 65 |.2010DEF| PROCChe|
|00005f50| 63 6b 4d 6f 75 73 65 28 | 6d 6f 75 73 65 78 25 2c |ckMouse(|mousex%,|
|00005f60| 6d 6f 75 73 65 79 25 2c | 62 25 2c 68 61 6e 64 6c |mousey%,|b%,handl|
|00005f70| 65 25 2c 69 63 6f 6e 25 | 2c 6f 62 25 29 0a 32 30 |e%,icon%|,ob%).20|
|00005f80| 31 31 49 46 20 28 62 25 | 20 41 4e 44 20 32 29 20 |11IF (b%| AND 2) |
|00005f90| 54 48 45 4e 0a 32 30 31 | 32 43 41 53 45 20 68 61 |THEN.201|2CASE ha|
|00005fa0| 6e 64 6c 65 25 20 4f 46 | 0a 32 30 31 33 57 48 45 |ndle% OF|.2013WHE|
|00005fb0| 4e 20 2d 32 20 3a 20 50 | 52 4f 43 64 6f 6d 65 6e |N -2 : P|ROCdomen|
|00005fc0| 75 28 31 30 31 2c 22 3e | 49 6e 66 6f 2c 46 6f 6e |u(101,">|Info,Fon|
|00005fd0| 74 73 2c 52 65 73 69 7a | 65 2c 51 75 69 74 22 2c |ts,Resiz|e,Quit",|
|00005fe0| 22 4e 65 77 43 68 61 72 | 73 20 32 22 2c 6d 65 6e |"NewChar|s 2",men|
|00005ff0| 75 25 29 0a 32 30 31 34 | 45 4e 44 43 41 53 45 0a |u%).2014|ENDCASE.|
|00006000| 32 30 31 35 45 4e 44 49 | 46 0a 32 30 31 36 49 46 |2015ENDI|F.2016IF|
|00006010| 20 28 62 25 20 41 4e 44 | 20 34 29 20 41 4e 44 20 | (b% AND| 4) AND |
|00006020| 28 68 61 6e 64 6c 65 25 | 3d 2d 32 29 20 54 48 45 |(handle%|=-2) THE|
|00006030| 4e 0a 32 30 31 37 49 6e | 70 75 74 56 61 72 73 21 |N.2017In|putVars!|
|00006040| 30 3d 34 3a 49 6e 70 75 | 74 56 61 72 73 21 34 3d |0=4:Inpu|tVars!4=|
|00006050| 35 3a 49 6e 70 75 74 56 | 61 72 73 21 38 3d 2d 31 |5:InputV|ars!8=-1|
|00006060| 0a 32 30 31 38 50 52 4f | 43 52 65 61 64 4d 6f 64 |.2018PRO|CReadMod|
|00006070| 65 56 61 72 73 3a 62 6c | 6f 63 6b 25 21 31 32 3d |eVars:bl|ock%!12=|
|00006080| 62 6c 6f 63 6b 25 21 34 | 2b 4c 4d 25 2b 33 31 2a |block%!4|+LM%+31*|
|00006090| 4d 58 53 50 25 2b 31 36 | 2b 52 4d 25 3a 62 6c 6f |MXSP%+16|+RM%:blo|
|000060a0| 63 6b 25 21 38 3d 62 6c | 6f 63 6b 25 21 31 36 2d |ck%!8=bl|ock%!16-|
|000060b0| 54 4d 25 2d 37 2a 4d 59 | 53 50 25 2d 33 32 2d 42 |TM%-7*MY|SP%-32-B|
|000060c0| 4d 25 0a 32 30 32 31 21 | 62 6c 6f 63 6b 25 3d 57 |M%.2021!|block%=W|
|000060d0| 69 6e 64 6f 77 48 61 6e | 64 6c 65 3a 62 6c 6f 63 |indowHan|dle:bloc|
|000060e0| 6b 25 21 32 38 3d 2d 31 | 3a 50 52 4f 43 4f 70 65 |k%!28=-1|:PROCOpe|
|000060f0| 6e 57 69 6e 64 6f 77 0a | 32 30 32 32 45 4e 44 49 |nWindow.|2022ENDI|
|00006100| 46 0a 32 30 32 33 49 46 | 20 62 25 20 41 4e 44 20 |F.2023IF| b% AND |
|00006110| 34 20 54 48 45 4e 0a 32 | 30 33 30 20 20 49 46 20 |4 THEN.2|030 IF |
|00006120| 69 63 6f 6e 25 3e 3d 30 | 20 41 4e 44 20 69 63 6f |icon%>=0| AND ico|
|00006130| 6e 25 3c 3d 33 20 54 48 | 45 4e 0a 32 30 34 30 20 |n%<=3 TH|EN.2040 |
|00006140| 20 20 20 50 52 4f 43 44 | 6f 49 63 6f 6e 0a 32 30 | PROCD|oIcon.20|
|00006150| 35 30 20 20 45 4c 53 45 | 0a 32 30 36 30 20 20 20 |50 ELSE|.2060 |
|00006160| 20 50 52 4f 43 44 6f 43 | 68 61 72 0a 32 30 37 30 | PROCDoC|har.2070|
|00006170| 20 20 45 4e 44 49 46 0a | 32 30 38 30 45 4c 53 45 | ENDIF.|2080ELSE|
|00006180| 0a 32 30 39 30 0a 32 31 | 30 30 52 45 4d 20 23 23 |.2090.21|00REM ##|
|00006190| 23 0a 32 31 31 30 52 45 | 4d 20 49 66 20 74 68 65 |#.2110RE|M If the|
|000061a0| 20 6d 65 6e 75 20 62 75 | 74 74 6f 6e 20 77 61 73 | menu bu|tton was|
|000061b0| 20 70 72 65 73 73 65 64 | 2c 20 74 68 69 73 20 77 | pressed|, this w|
|000061c0| 69 6c 6c 20 63 72 65 61 | 74 65 20 74 68 65 20 61 |ill crea|te the a|
|000061d0| 70 70 6c 69 63 61 74 69 | 6f 6e 20 6d 65 6e 75 0a |pplicati|on menu.|
|000061e0| 32 31 32 30 52 45 4d 20 | 61 6e 64 20 69 74 20 77 |2120REM |and it w|
|000061f0| 69 6c 6c 20 63 61 6c 6c | 20 46 6f 6e 74 4d 65 6e |ill call| FontMen|
|00006200| 75 5f 53 65 6c 65 63 74 | 2c 20 61 6e 64 20 73 74 |u_Select|, and st|
|00006210| 6f 72 65 20 74 68 65 20 | 70 6f 69 6e 74 65 72 0a |ore the |pointer.|
|00006220| 32 31 33 30 0a 32 31 34 | 30 20 49 46 20 28 62 25 |2130.214|0 IF (b%|
|00006230| 20 41 4e 44 20 32 29 20 | 41 4e 44 20 68 61 6e 64 | AND 2) |AND hand|
|00006240| 6c 65 25 3d 57 69 6e 64 | 6f 77 48 61 6e 64 6c 65 |le%=Wind|owHandle|
|00006250| 20 54 48 45 4e 0a 32 31 | 35 30 20 20 20 50 52 4f | THEN.21|50 PRO|
|00006260| 43 64 6f 6d 65 6e 75 28 | 31 30 31 2c 22 3e 49 6e |Cdomenu(|101,">In|
|00006270| 66 6f 2c 46 6f 6e 74 73 | 2c 52 65 73 69 7a 65 2c |fo,Fonts|,Resize,|
|00006280| 51 75 69 74 22 2c 22 4e | 65 77 43 68 61 72 73 20 |Quit","N|ewChars |
|00006290| 32 22 2c 6d 65 6e 75 25 | 29 0a 32 31 36 30 20 45 |2",menu%|).2160 E|
|000062a0| 4e 44 49 46 0a 32 31 37 | 30 45 4e 44 49 46 0a 32 |NDIF.217|0ENDIF.2|
|000062b0| 31 38 30 45 4e 44 50 52 | 4f 43 0a 32 31 39 30 3a |180ENDPR|OC.2190:|
|000062c0| 0a 32 32 30 30 44 45 46 | 20 50 52 4f 43 6d 65 6e |.2200DEF| PROCmen|
|000062d0| 75 5f 73 65 6c 65 63 74 | 0a 32 32 31 30 52 45 4d |u_select|.2210REM|
|000062e0| 20 23 23 23 0a 32 32 32 | 30 52 45 4d 20 49 66 20 | ###.222|0REM If |
|000062f0| 74 68 65 20 75 73 65 72 | 20 73 65 6c 65 63 74 65 |the user| selecte|
|00006300| 64 20 73 6f 6d 65 74 68 | 69 6e 67 20 66 72 6f 6d |d someth|ing from|
|00006310| 20 74 68 65 20 66 6f 6e | 74 20 6d 65 6e 75 2c 20 | the fon|t menu, |
|00006320| 61 20 63 61 6c 6c 20 74 | 6f 0a 32 32 33 30 52 45 |a call t|o.2230RE|
|00006330| 4d 20 46 6f 6e 74 4d 65 | 6e 75 5f 44 65 63 6f 64 |M FontMe|nu_Decod|
|00006340| 65 46 6f 6e 74 4d 65 6e | 75 20 69 73 20 6d 61 64 |eFontMen|u is mad|
|00006350| 65 20 74 6f 20 67 65 74 | 20 74 68 65 20 73 65 6c |e to get| the sel|
|00006360| 65 63 74 65 64 20 66 6f | 6e 74 20 73 74 72 69 6e |ected fo|nt strin|
|00006370| 67 2e 0a 32 32 34 30 52 | 45 4d 20 41 20 62 6f 6f |g..2240R|EM A boo|
|00006380| 6c 65 61 6e 20 69 73 20 | 73 65 74 20 74 6f 20 54 |lean is |set to T|
|00006390| 52 55 45 20 74 6f 20 69 | 6e 64 69 63 61 74 65 20 |RUE to i|ndicate |
|000063a0| 74 68 61 74 20 61 20 6e | 65 77 20 66 6f 6e 74 20 |that a n|ew font |
|000063b0| 6d 61 79 20 68 61 76 65 | 0a 32 32 35 30 52 45 4d |may have|.2250REM|
|000063c0| 20 62 65 65 6e 20 73 65 | 6c 65 63 74 65 64 2e 0a | been se|lected..|
|000063d0| 32 32 36 30 0a 32 32 37 | 30 66 66 6c 25 3d 46 41 |2260.227|0ffl%=FA|
|000063e0| 4c 53 45 3a 61 24 3d 22 | 22 3a 66 63 68 25 3d 30 |LSE:a$="|":fch%=0|
|000063f0| 0a 32 32 38 30 0a 32 32 | 39 30 52 45 4d 20 2a 2a |.2280.22|90REM **|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.